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,REM_ 
IDENTIFICATION 

PRODUCT ID: AC-T722A-MC 

PRODUCT TITLE: CZTSDAO TSU05 DIAG PART 4 

DEPARTMENT? COMPUTER SPECIAL SYSTEMS.'°Pr< 

DATE; APRIL 26, 1983 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE UIITHOUT 
NOTICE ANO SHOULD NOT PE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOP ANr ERRORS THAT MAY APPEAR IN THIS DOCUMENT, 



NO RESPONSIBILITY IS ASSUMED FOR THE USE OR 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
AFFILIATED COMPANIES, 



RELIABILITY Of 
DIGITAL OR ITS 



COPYRIGHT (C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 
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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A PDP-11 RESIOENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A TSU05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A PDP-11/V23 SYSTEM 
CO -BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FACTIONS THAT AID TN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
EIGHT TEST WHICH ARE EXECUTED IN SEQUENCE, 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOG USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
T HE INTERFACE TO THE OPERATOR ANO TO .HE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*. ACT, APT, SLIDE AND PAPER 
TmPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MANUAL. THEftE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

PDP-11 PROCESSOR ANO MEMORY 

CAUTION.-DIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 

(28K USEABLE ANO 4K RESERVED FOR I/O PAGE) 

TSU05 MAGTAPE SUBSYSTEM (DRIVE ANO CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 

PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDPO 

1.3 RELATED DOCUMENTS ANO STANDARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENT'S* 

1. CHQUS XXDP* USERS MANUAL i DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1980. 

2. TSU05 TRANSPORT SUBSYSTEM USER'S GUlDEj DOCUMENT NUMBER EK - TSU05-UG-001 
DATE: AUGUST 1982 

3. TSU05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL j DOCUMENT NUMBER EK -TSU05- TM-001 
DATE: AUGUST 1982 

4. TSU05 TRANSPORT SUBSYSTEM INSTALLATION MANUAL} DOCUMENT NUMBER EK-TSUQ5-XN-QQI 
DATE: AUGUST 1982 



1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11 CENTRAL PROCESSOR ANO MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANOALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGNOSTIC LQADER/MQNITQR (XXDPO 



El 
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1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDWARE UNDER TEST IS ASSUMED TO WORK 

PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 

OF TAPE. 

CZTSAA.CZTSBA AND CZTSCA HAVE SUCESSFULLY RUN, 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS ANO GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 

COMMAND EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP* MONITOR CXXDP* OPERATION ONLY!) 

ADD ACTIVATE A INIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL li^ORMATION (IF IMPLEMENTED 

8Y THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TfPf A LIST OF ALL DFVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY. FOR EXAMPLE. TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANOS 



THE TSU05 DIAGNOSTIC IS A PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE 

PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 

CHQUS XXDP* USERS MANUAL .DOCUMENT NUMBER AC-F348E-MC* TH& USUR ENTRY IS IN QUOTES* 

BOOT THE DIAGNOSTIC XXDP MEDIA 

.R VTSD?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 

CZTSD-B-0 

♦•♦♦TSUQ5 LOGIC DIAGNOSTIC**** 

UNIT XS TSU05 

>QR 
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2,2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERAUON. 
THESE SWITCHES ARE APPENOED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED LttiLOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD", 



SWITCH 
/TESTSjLIST 



/PASS:DDDDD 
/FLAGS :FLGS 

/EOP: DDDDD 

/UNITSjLIST 



EFFECT 



EXECUTE ONLY THOSE TESTS SPECIFIED IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBFRf. FOR EXAMPLE - /TESTS: 1 : 5: 7- 10. 
THIS LIST WILL CAUSE TESTS 1,5,7,8,9,10 TO 
BE R*>N. AM. OTHER TESTS WILL NOT BE RUN. 
EXECUTE DDDDD PASSES (DDODD - 1 TO 64000) 
SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD « 1 TO 64000) 
TCST/ADU/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNTTS:0:5: 10- 12 
USE UNITS 0.5,10,11.12 (UNIT NUMBERS - 0-63) 



EXAMPLE OF SWITCH USAGE: 

START/TESTS : 1 -5/PASS : 1000/EOP : 100 

THE EFFECT OF THIS COWhAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTEO 1000 TIMES ANO 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE. TYPE "/TES:l-5" INSTEAD OF "/TESTS: 1 -5" . 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 



TESTS PASS 



FLAGS EOP 



UNITS 



START 


X 


X 


X 


X 


X 


RESTART 


X 


X 


X 


X 


X 


CONTINUE 




X 


X 


X 




PROCEED 






X 






DROP 










X 


ADD 










X 


PRINT 












DISPLAY 










X 


FLAGS 












ZFLAGS 












EXIT 













2.3 



FLAGS 



FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL TLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH, FLAGS 
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ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE Zf-LPGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED fiY THE LAST FLAG SWITCH. 

FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROfc REPORTS EXCEPT 

FIRST LEVEL (FTR;,T LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENOED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM UNATTENDED MOOE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOi 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP* USER'S MANUAL fOf^ MORE DETAILS ON FLAGS. YOU MAr 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR. INHIBIT ERROR REPORTS 
AND TYPE A "BELL" ON ERROR. YOU MAY USE THE FOLLOWING STRING; 

/FLAGS{LOEiIER:BOE 



<?.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED. THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L ) ?*' 
YOU MUST ANSWER "Y" AFTER A START COMMANO UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRcLOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP* USER'S MANUAL), WHEN YOU ANSWER THIS 
QUESTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WIlL 

RUN U^ING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE 
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TSBA/TSDB - 172520, VECTOR - 224 

ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE OPERATOR TO SELECT THF. UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D) M IN A QUESTION INDICATES THAT A DECIMAL NUMRER IS 
REQUIRED AS A RESPONSE. AN "CO)" INDICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "CD" INDICATES THAT A LOGICAL RESPONSE IS TO BE MADE: 
"Y" FOR YES. »'N" FOR NO. 



* UNITS CD) ? 



UNIT C 



<ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE TESTED> 



DEVICE ADDRESS CO) 172520 7 <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER> 



VECTOR CO) 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "P UNITS?" QUESTION. LOGICAL UNIT 
NW8ERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS FOLLOWS: 
UP TO 4 TSU05 CONTROLLERS PER PDP-11 AND UP TO 2 DRIVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AF1ER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMANO, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW CD ?•• 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y". THE SOFTWARE (QUESTIONS AND THE DEFHULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHC S) . 

THE FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE, 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? <TYPE Y TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED> 



INHIBIT ITERATIONS (L) N ? 



<TYPE "Y M TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS.* 



2.6 EXTENDED P-TABLE DIALOGUE 



WHEN rOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
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IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILO THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
WIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEOICUS SINCE MOST OF 
X^F. ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOO, SUPPOSE YOU ARE TESTING 
A DEV7CE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AKONG UNITS CALLED THE 
Q-FACTOR, THIS Q-FACTOR MAY BE OR 1 , BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 

UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 0<CR> 
Q-FACTOR (0) ? X<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE CO) ? 1<CR> 
Q-F CTOR CO) 1 ? 0<CR> 

UNIT 3 

CSR ADDKSSS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 2<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 3<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000 <CR> 
SUB-DEVICE * (0) ? 4<CR> 
Q-FACTOR (0) ? <CR> 

UNIT 6 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 5<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 7 

CSR ADDRESS CO) ? 160000<CR* 
SUB-DEVICE (0) ? 6<CR> 
Q-FACTOR CO) ? 1<CR> 

UNIT 8 

CSR ADDREbS CO) 160000<CR> 

SUB-DEVICE CO) ? 7<CR> 

Q-FACTOR CO) 1 ? <CR> 
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NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RfcSPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

* UNITS (D) ? 8<CR> 

UNXT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 0.1<CR> 
Q-FACTOR (0) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 2-5<CR> 
Q-FACTOR (0) ? 0<CR> 

UNIT 7 

CSR ADDRESS '0> ? 160000<CR> 
SUB-DEVICE * (0) ? 6,7<CR> 
Q-FACTOR (0) ? 1<CR> 

AS YOU CAN SEE IN Th>. ABOVE DIALOGIC. THE RWTIML SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS, IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES ANO Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSVtIE THAT THE CSR ACORESS IS 160000 FUR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN (HE SF.CONO PASS, FOUR LrtTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED. THE 
"-'♦ CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECOND. IN THIS CASE, SUB-DEVICES 
2, 3. 4 ANO 5 WERE SPECIFIED. (if THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES, THF INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY . ) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR .ENTRIES ARE ASSUMED TO BE 160000 Ai^O RESPECTIVELY 
SINCE THf 1 WS9E ONLY SPECIFIED ONCE. THE LAST TWO UMTS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 

* UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS CO) ? 160000<CR> 
SUB-DEVICE (0) ? 0-7<CR> 
Q-FACTOR CO) ? 0, 1 ,0. , , , 1 , 1 i CR> 

AS YOU CAN SEE FROM THIS EXAMPLE. NULL RtPuIES C COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 
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2.7 QUICK START-UP PROCEDURE (XXOPO 
TO START-UP THIS PROGRAM; 

1. BOOT XXDPf 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 

4. TYPE "START" 

5. ANSWER THE "CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU FOLLOW THIS PROCEDUR 1 " YOl WILL BE USING ON(.Y THE 
DEFAULTS FOR FLAGS AND SOFTWARE PA AMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND «i,5, 

?.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS Of' ERROR MESSAGES THAT MAY BE ISSUED BY 
A DIAGNOSTIC: GENERAL. BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
AKE ALWAYS PRINTED UNLESS THE "IER" FLAG IS SET (SECTION 2,3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCjXXXXXX 
ERROR MESSAGE 

.WHERE; NAME - DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL, DEV FATAL. HARD UR SOFT) 

NUMBER • ERROR NUMBER 

UNIT NUMBER - - N (N IS LAST UNIT IN PTABLE) 

TST NUMBER - TEST AND SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MGSSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLfcGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWA V S 
PRINTED UNLESS THE "IER". "IBR" OR "IXE" FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 

3.2 SPECIFIC ERROR MESSAGES 
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BELOW ARE SAMPLE ERfOR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
OF ERRORS DETECTED BY THIS DIAGNQS.'IC. 

ERROR MESSAGE EXAMPLE 1 

THIS ERROR IS INDICATIVE OF AN INCOJc: V REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC. THE FIRST PART DEFINLS THE TEST FUNCTION AND UNIT THAT FAILED. 
THE SECOND PART PRIOVIDES THE REGISTER BIT. AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CZTSD HRD ERR 01610 ON UfcIT CO TST 016 SUB 002 PC: 040624 

FIFO STATUS UN WORD 9) INCORRECT AFTER WRITE FIFO 



TOR <&IT 0> 

<6> IRWD<2> 

<5> IFBY<1> 

<4> IFPT<0> 



TAPE BUS SIGNALS IN WORD 08: - DESIGNA 
PARERR<15> IEOT <12> IFMK <9> IRDY 
IRESV2<14> IIDENT<11> IHER <8> IONL 
IRESV1<13> ICER <10> ISPEED<7> ILDP 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> ILW<6> 0UTW<5> INRDY<4> 

MESSAGE BUFFER ADORES* - 047352 

MESSAGE BUFFER CONTENTS: 
WORD 00 EXPD: 100020 RECV: 100020 XOR: 000000 
WORD 01 EXPD: 000012 RECV: 000012 XOR: 000000 
WORD 02 EXPD: 000000 RECV: 000000 XOR: 000000 
WORD 03 Ey r *. 000010 RECV: 000010 XOR: 000000 
WORO 04 EXPD: 000000 RECV: 000000 XOR: OOOOOO 
WORD 05 EXPD: OOOOOO RECV: OOOOOO XOR: OOOOOO 
WORD 06 EXPO: OOOOOO RECV: OOOOOO XOR: OOOOOO 
WORD *7 EXPD: OOOOOO RECV: OOOOOO XOR: OOOOOO 
WORD 08 EXPD: 070217 RECV: 070217 XOR: OOOOOO 
WORD 09 EXPD: 000074 RECV: 000034 XOR: 000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES THAT THE CONTROLLER 
MAY BF DEFECTIVE. 

CZTSD HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORRECT AFTER SPACE RECORDS COM M AND 

TSSR - 100214 

TSSR BITS SET: SC.SSR 

TERMINATION CLASS CODE 



PACKET ADDRESS - 026420 

PACKET WORD - 140010 

PACKET UORD - 000010 

PACKET WOSD - OOOOOO 

PACKET WORD « 000024 



UNRECOVERABLE ERROR 



ERROR MESSAGE EXAMPLE 3 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWiNG 
WITH EXTENDED FEATURES MODE ENABLED, 

CZTSD HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT CXSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

SUCCESSFUL RUN EXAMPLE (PDP-11) 

DR>STA/FLA:PNT:HOE 

UNITS (D) ? 1 

UNIT 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS TWO 
SUITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" AND "HALT ON 
ERROR". 

TST: 001 SKIP TAPE MARK? TEST 

TST: 002 NO-OP AND INITIALIZE TEST 

TST: 003 ERASE AND OPERATION INCOMPLETE TEST 

TST: 004 DATA PARITY TEST 

TST: 005 TEST OF OPERATIONS AT EOT TEST 

TST: 006 EXTENDED -MODE FUNCTIONS TEST 

TST: 007 RECORD BUFFERING TEST 

TST: 008 FUNCTION TIMING TEST 

ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS NUMBER LIMIT HAS 
BEEN SPECIFIED WITH THE "/PASS:" SWITCH. 

PROGRAM RUN TlhES 

THE AVERhCP P'JM TIMES OF THE PROGRAM ARE LISTED BELOW. THEbE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11 
PROCESSOR WITH A LA34 CONSOLE. 



USCR documentation 



MACRO M1113 01-FEB-84 18:55 



Nl 



SEQ 013 



THE PROGRAM RUNS IN TWO MOOES; NO ITERATIONS AND DEFAULT MODE. IN THE 

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITFRATIONS. IN THE 

DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 

THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" CYES), 



TEST 


N/I 


NUMBER 


DEF 


NUMBER 


SECS. 


ITER 


StCS. 


1 




2 


1 


2 









3 









4 









5 









6 









7 






c 


8 










THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 37 IN ONE COMMAND: 



Q.V. 

DEFAULT 



15 SECONDS 

16 SECONDS 



5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMriAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P- TABLES PARAMETER 
CHANGES: 



CHANGE HW fL) ? 
* UNITS CD) ? 



<ENTER THE NUMBER OF M7455 CONTROLLERS 
PRESENT TO BE T£STED> 



UNIT 

DEVICE ADDRESS 



VECTOR (0) 224 ? 



(0) 172520 ? 'ENTER THE ADDRESS OF THE 
TSBA/TSDB R£GISTER> 

<ENVER ADDRESS OF INTERRUPT 
VECTOR> 



TKS ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF TH" NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE "0 UNITS?" QUESTION, LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN EDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
REU'JESTS CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 

FOLLOWS: 



B2 

USER DOCUMENTATION MACRO M1113 01-FEB-84 18{55 SEQ 014 

CHANGE SVJ (L) ? 
INHIBIT ITERATIONS CD N ? 



6.0 TEST SUMMARIES 

TEST 1: WRITE TAPE MARK RETRY 

THTS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE. ERASE, WRITE TAPE MARK). 

TEST 2 i SKIP TAPE MARKS 

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP T -?E MARKS 
FORWARD ANO SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
UNDER CONTROL Of ALL COMBINATIONS Of THE ENABLE SKIP TAPE MARKS 
STOP CESS) AND ENABLE TAPE MARKS STOP OfF BOT (EN6) BITS SPECIFIED 
BY THE WRITE CHARACTERISTICS COMMAND. 

TEST 3: NO-OP C "CLEAN TAPE") ANO INITIALIZE 

THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") ANO INITIALIZE 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 

TEST 4: ERASE AND OPERATION INCOMPLETE 

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 

TEST 5t DATA PARITY TEST 

THIS TEST VERIFIES TNAf THE DATA PARITY CIRCUITRY IN BOTH THE CONTROLLER AM THE 
TRANSPORT IS OPERATING PROPERLY BY FORCING DATA RECORDS WITH WRONG PARITY TQBfc 
WRITTEN ONTO TAPE ANO CHECKING THE RESULTS OBTAINED WHEN THE DATA IS READ, 

TEST 6i OPERATIONS AT EOT 

THIS TEST VERIFIES PROPER OPERATION OF THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE. ERASE. WRITE DATA) 

TEST 7{ EXTENOED MODE FEATURES 

THIS TEST VERIFIES THE OPERATION OF COMMANOS ONLY AVAILABLE WHEN 
THE CONTROLLER IS IN THE EXTENOED FEATURES MODE. THESE COMMANDS 
ARE: 

RLWIND WITH IMMEDIATE INTERRUPT 



USER DOCUMENTATION 



C2 



MACRO MU13 Ol-FEB-84 18i55 



SEQ 015 



If THE CONTROLLER IS NOT ALREADY IN EXTENDED FEATURES MODE, IT 
13 PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND, 

TEST 8j RECORD BUFFERING 

THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND REAO NEXT COMMANOS. OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7455 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THHT MCOt BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMANO. NOTE THAT RECORD BUFFEhING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY, THIS TLST VERIFIES THAT BUFFERING 
ACTUALLY OPERATING. 



15 



TEST 9; FUNCTION TIMING 

THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 
RECORDS. GAPS. ANO EXTENOED GAPS OF THE PROPER LENGTH. BOTH LOW 
AND HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 
SKIP TAPE iARKS COMMAND WITH A COUNT OF 6 OF MORE, OPERATE THE 
TA^E IN HIGH-SPEED MODE. THIS TEST CAN ONLY BE RUN IF A 
REAL-TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 
TIMING VARIOUS TAPE-MOTION OPERATIONS, USING A NUMBER OF 
DIFFERENT TEST RECORD LENGTHS, 



7 f MAINTENANCE HISTORY 
REVISION A - JUNE 1983 
REVISION B - APRIL 1963 



- FIXED TWO PROBLEMS, ONE IN TEST 1 AND THE 
OTHER IN TEST 8. 

REF. DOYLE TO GRASKY "TSU05 CZTSQA DIAGNOSTIC 
PATCH"! 23-DEC-83, 



TSV2 - PROGRAM HEADER MACRO M1113 Ol-FEB-84 18;55 



D2 



SEQ 016 



3 


000000 




4 






10 






11 
12 
13 


000000 








19 






20 




002000 


21 


002000 
002000 




22 






23 






24 






25 






26 






27 






28 






29 


002000 




30 


002000 
002000 






002000 


103 




002001 


132 




002002 


124 




002003 


123 




002004 


104 




002005 


000 




002006 


000 




002007 


000 




002010 






002010 


101 




002011 






002011 


060 




002012 






002012 


oooooo 




002014 






002014 


001217 




002016 






002016 


105446 




002020 






002020 


105600 




002022 






002022 


002150 




002024 






002024 


002160 




002026 






002026 


105674 




002030 






002030 


OOOOOO 




002032 






002032 


OOOOOO 




002034 






002034 


OOOOOO 




002036 






002036 


OOOOOO 




002040 





.TITLE TSV2 - PROGRAM HEADER 
.SBTTL PROGRAM HEADER 
.PSECT ABS 



T5V2sj 



I ♦♦ 



.MCALL SVC 
SVC 

.ENABLE LC 
.NLIST BEX.CND 
.ENABL AMA 
.-.♦2000 
BGNMCD TSV2 



I INITIALIZE SUPERVISOR MACROS 



5 THE PROGRAM HEADER IS TH€ INTERFACE BETWEEN 
l THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
J -- 



L$NAMEi 



POINTER BGNSW t BGNSF T t BGNAU . BGNDU , BGNRP T 
HEADER CZTSD,A,0.655. ,0 

{DIAGNOSTIC NAME 





.ASCII 


/c/ 




•ASCII 


/!/ 




.ASCII 


/!/ 




.ASCII 


/s/ 




.ASCII 


/D/ 




.BYTE 







.BYTE 







.BYTE 





L$REV: 








.ASCII 


/A/ 


LiDEPO 








'.ASCII 


/o/ 


LIUNIT 








'.WORD 





LITIML 








'.WORD 


655, 


L$HPCP 








'.WORD 


LJHARD 


L$SPCP 








'.WORD 


l$S0FT 


LIHPTP 








* . WORD 


LiHW 


LISPTP 








'.WORD 


L$SW 


LiLADP 








'.WORD 


L$LAST 


L$STAs 








.WORD 





LfCOjs 








.WORD 





LiDTYP 


• 






'.WORD 





LtAPT; 








.WORD 





L$DTPs 


• 
• 





iREVISION LEVEL 

JO 

iNUMBFR OF UNITS 

(LONGEST TEST TIME 

l POINTER TO H.W. QUES. 

^POINTER TO S.W. QUES. 

jPTR. TO DEF. H.W, PTABLE 

jPTR. TO S.W. PTABLE 

iDIAG. END ADDRESS 

iRESERVED FOR APT SVATS 

jDIAGNOSTIC TYPE 

I APT EXPANSION 

jPTR. TO DISPATCH TABLE 



TSV2 - PROGRAM HEADER 
PROGRAM HEADER 



E2 



MACRO Mil 13 01-FEB-8A 18; 55 



SEQ 017 



31 
32 
33 
34 
35 
36 
37 
38 



002040 
002042 
002042 
002044 
002044 
002046 
002046 
002050 
002050 
002051 
002052 
002052 
002054 
002056 
002056 
002060 
002060 
002062 
002062 
002064 
002064 
002066 
002066 
002070 
002070 
002072 
002072 
002074 
002074 
002076 
002076 
002100 
002100 
002102 
002102 
002104 
002104 
002106 
002106 
002110 
002110 
002112 
002112 
002114 
002114 
002116 
002116 
002 12C 
002120 



002124' 

000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003374' 

022514' 

OOOoOO 

000000 

022202' 

022300' 

000000 

003402' 

104035 

000000 

021406' 

022466' 

022406' 

021376' 

000000 

ooooco 

000000 



L*PRIO 
LiENVI 
L*EXP1 
LJMREV 

LIEFjj 

LISPC: 

L*UEVP 

L$REPP 

LJEXP4 

L*EXP5 

LSAUT: 

L*DUT: 

LSLUN; 

L$DESP 

L$LOAD 

L$ETP 

LIICP 

LfCCP 

L iACP 

LtPRT 

LITEST 

LIOLY: 

UJHIME 



.WORD 

.WORD 

.WORD 

.WORD 

.BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

EMT 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.SBTTL 



L*DISPATCH 

jDIAGNOSTIC RUN PRIORITY 


I FLAGS DESCRIBE HOW IT WAS SETUP 


I EXPANSION WORD 


l SVC REV AND EDIT 
CIREVISION 
CIEDIT 

»DIAG. EVENT FLAGS 









LJDVTYP 

LtRPT 





L$AU 

LtDU 



LIDESC 

E$LOAD 



LIINIT 

LSCLEAN 

LIAUTO 

L$PROT 







DISPATCH TABLE 



i POINTER TO DEVICE TYPE LIST 
jPTR, TO REPORT CODE 



jPTR, TO ADD UNIT CODE 

iPTR. TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO TILL 

jPOINTER TO DIAG. DESCRIPTION 

tGENERATE SPECIAL AUTOLOAD EMT 

\ POINTER TO EWRTBL 

iPTR. TO INIT CODE 

jPTR. TO CLEAN-UP CODE 

:PTR. TO AUTO CODE 

iPTR. TO PROTECT TABLE 

l TEST NUMBER 

jDFLAY COUNT 

»PTR, TO HIGH MEM 



I THE DESPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST, 
i IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH T£ST, 



T5V2 - PROGRAM 


HEADER 


DISPATCH TABLE 




39 


002122 






002122 


000011 




002124 






002124 


023276' 




002126 


032114* 




002130 


041222' 




002132 


046600' 




002134 


052666' 




002136 


055702' 




002140 


063264' 




002142 


073224' 




002144 


101010 1 


40 






41 






42 






43 






44 






45 






46 






47 






48 


002146 






002146 


000003 




002150 






002150 




49 






50 


002150 


172520 


51 


C02152 


000224 


52 


002154 


000200 


53 


002156 
002136 




54 






55 






56 






57 






58 






59 






60 






61 


002156 






002156 


000004 




002160 






002160 




62 






63 


002160 


000000 


64 


002162 


000000 


65 






66 






67 


002164 


000017 


68 


002166 


000310 


69 


002170 

002170 




70 






71 


002170 




1Z 







MACRO M1113 01-FEB-84 18:55 



F2 



SEQ 018 



DISPATCH 9 


.WORD 


9 


IDISPATCH:: 




♦ WORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.WORD 


T6 


.WOHO 


T7 


.WORD 


T8 


.WORD 


T9 



.SBTTL DEFAULT HARDWARE P- TABLE 

; ♦» 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

} THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

5 IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE, 



1 -- 



L*HW: 
DFPTBL 5 } 



BGNHW 
.WORD 



L 10000; 



1 ♦♦ 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 

L 10000 -L*HW/c' 



172520 

224 

PR104 



jDEFAULT HARD-P-TABLE 



I 1ST (OF 2) REGISTERS. 
1 INTERRUPT VECTOH 
1 INTERRUPT PRIORITY. 



.SBTTL SOFTWARE P-TABLE 



1 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
j PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 

L$SW: : 

SFFTBL:: 


SFPTBL 
LlOOOl- 


L'iSW/2 


TRANSTSTs : 
NOITS: : 


.WORD 
.WORD 


1 
1 


LERRMAXj : 
GERRMAXs j 

ENDSW 
LlOOOl: 


.WORD 
.WORD 


15. ! 
200. 1 



ENABLE TEST OF TRANSPORT(S) IF 
INHIBIT ITERATION OPTION. 
... - ITERATE. 
...NZ • INHIBIT ITERATE. 
LOCAL (PER TEST) ERROR LIMIT 
GLOBAL (PER UNIT) ERROR LIMIT 



ENDMOD 



G2 



TSV3 - GLOBAL AREAS 
SOFTWARE P- TABLE 

7 

8 
13 
10 

20 00? 170 
002170 
21 
22 
23 
24 
25 
26 
27 
28 
29 
33 002170 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
0OO010 
000004 
000002 
000001 

001000 
0OO400 
OOOLOO 
000100 
0000*0 
0O002O 
000010 
0O0004 
0O0002 
OOOOOl 



000040 
000037 
000036 
000035 
000034 



MACRO M1113 Ol-FEB-84 18:55 



•TITLE 
.SBTTL 



SEQ 019 



TSV3 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



TSV3:: 



BGNfiOD TSV3 



. SBTTL GLOBAL EQUATES SECTION 

t THE GLOBAL EQUATES 5ECTI0N CONTAINS PROGRAM EQUATES THAT 
I ARE USED IN MOPE THAN ONE TEST. 
j -- 



\ GET STANDARD EQUATES. 



EQUALS 

i BIT DIFINITIONS 

BIT15" 100000 

BIT14-- 40000 

PIT13-- 20000 

BIT12-- 10000 

BIT11— 4000 

BIT10-- 2000 

BIT09-- 1000 

BIT08-- 400 

BITC7-- 200 

BIT06-- 100 

BIT05-- 40 

BIT04-- 20 

BIT03-- 10 

BIT02-- 4 

BIT01-- 2 

BITOO-- 1 

BIT9-- BIT09 

BIT8-- 9IT08 

BJT7-- BIT07 

BIT6-- BIT06 

BIT5-- BIT05 

BIT4-- BIT04 

BIT3-- BIT03 

BIT2-- BIT02 

BI T 1-- BIT01 

BITO-- BITOO 

i 

j EVENT FLAG DEFINITIONS 

j EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

i 

EF. START-- 32. 

EF, RESTART-- 31, 

EF, CONTINUE-- 30, 

EF.NEU-- 29. 

EF.PWR«« 28. 



i START COMMAND WAS ISSUED 
i RESTART COMMAND WAS ISSUED 
l CONTINUE COMMAND WAS ISSUED 
I A NEW PASS HAS BEEN STARTED 
t A POWER-FAIL/POWER-UP OCCURRED 



TSV5 - GLOBAL AREAS 
GLOBAL EQUATES SECTION 



MACRO M1113 01-FEB-84 18:55 



:H2 



SEQ 020 



j PRIORITY LEVEL DEFINITIONS 



34 

35 002170 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
OlOOOO 
020000 
040000 
100000 



000250 

177572 
177574 
177576 
172516 



PRI07-- 


340 




PRT06-- 


300 




PR'i'05"- 


240 




PIU04-- 


200 




PRJ.03-- 


140 




PRI02-- 


100 




PRI01-- 


40 




PRIOO-- 







{OPERATOR FLAG 


BITS 


LVL-- 


4 




LOT*- 


10 




ADR-» 


20 




IOU-» 


40 




ISR-- 


100 




UAM-- 


200 




BOE-- 


400 




PNT-- 


1000 




PRI-- 


2000 




IXE-- 


4000 




IBE-- 


10000 




IER-- 


20000 




LOE-- 


40000 




HOE-- 


100000 






KT11 


» i 


.SBTTL 


MEMORY 


MANAGEMENT DEFINITIONS 


i*KTll 


VECTOR ADDRESS 


MMVEC- 


250 




i»KTU 


STATUS REGISTER ADDRESSES 


SRO- 


177572 




SR1- 


177574 




SR2- 


177576 




SR3" 


172516 




.IF N8 






j *USER 


M I" PAGE 


DESCRIPTOR REGISTERS 


UIPORO- 


177600 




UIPDR1- 


177602 




UIP0R2- 


177604 




UIP0R3- 


177606 




UIP0R4- 


177610 




UIP0R5- 


177612 




UIP0R6- 


177614 




UIPDR7- 


177616 




.IF N8 






l*USER 


"D" PAGE 


descript:^ registors 


UOPORO- 


17 7620 




U0PDR1- 


177622 




U0PDR2- 


177624 




UDPDR3- 


177626 




UDPDR4- 


177630 




U0PDR5- 


177632 




UDPDR6- 


177634 




UbPDRV- 


17 7636 





l DEFINE MEMORY MANAGEMENT REGISTERS 



12 



T3V3 - GLOBAL AREAS MACRO M1113 
MEMORY MANAGEMENT DEFINITIONS 



01-FEB-84 18s55 



SEQ 021 



.ENDC 

j*USER "I 

UIPARO- 

UIPAR1- 

UIPAR2- 

UIPAR3- 

UIPAR4- 

UIPAR5- 

UIPAR6' 

UIPAR7' 

.IF NB 

{♦USER 

UDPARO' 

U0PAR1* 

U0PAR2* 

UDPAR3 

UDPAR4 

U0PAR5 

U0PAR6 

U0PAR7' 

.ENOC 

.ENOC 

.IF NB 

{♦SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPORO- 172200 

SIPDR1- 172c:02 

SIPDR2- 172204 

SIPDR3- 172206 

SIP0R4- 172210 

SIP0R5- 172212 

SIPDR6- 172214 

SIPDR7- 172216 

.IF NB 

{♦SUPERVISOR "D 

SDPDRO- 172220 



PAGE ADDRESS REGISTERS 
177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 

H D M PAGE ADDRESS REGISTERS 
177660 
17766? 
177664 
177666 
177670 
177672 
177674 
177676 



PAGE DESCRIPTOR REGISTERS 



S0PDR1" 

SDPDR2- 
SDP0R3- 
S0PDR4- 
SDPDR5- 
SU-0R6- 



172222 
172224 
172226 
172230 
172232 
172234 
172236 



SDPDR7 

.ENOC 

{♦SUPERVISOR "I" PAGE ADDRESS REGISTERS 



SIPARO 
SIPAR1 
SIPAR2 
SIPAR3 
S1PAR4 



172240 
172242 
172244 
172246 
172250 



SIPAR5- 172252 
SIPAR6- 172254 
Si'PAR7- 172256 
.IF NB 

{♦SUPERVISOR "D 
SD D AR0» 172260 
SDPAR1- 17226^ 
S0PAR2» 172264 



PAGE ADDRESS REGISTERS 



J2 



TSV3 - GLOBAL AREAS MACRO M1U3 
MEMORY MANAGEMENT DEFINITIONS 



Ol-FEB-84 18j55 



SEQ 022 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
172 46 
172350 
172352 
172354 
172356 



39 
40 
41 
42 
43 
44 
45 
46 
47 



SDPAR3- 172266 

SDPAR4- 172270 

S0PAR5- 172272 

SDPAR6- 172274 

S0PAH7- 172276 

.ENOC 

.ENOC 

i*KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172300 

KIP0R1- 172302 

KIP0R2- 172*04 

KIPDR3- 172306 

KIP0R4- 172310 

KIPDR5- 172312 

KIPDR6- 172314 

KIP0R7- 172316 

.IF NB 

;*KERNEL "D" PAGE 

DESCRIPTOR REGISTERS 
KDPDRO- 172320 
KDPDR1- 172322 
KDPDH2- 172324 
KDPDR3- 172326 
KDPDR4* 172330 
KDPDR5- 172332 
KDPDR6- 172334 
KDPDR7- 172336 
.ENOC 

■♦KERNEL "I" PAGE ADDRESS REGISTERS 
KXPARO- 172340 
KIPAR1- 172342 
KIPAR2- 172344 
KIPAR3- 172346 
KIPAR4- 172350 
KIPAR5- 172352 
KIPAR6- 172354 
KIPAR7- 172356 

IF NB 
i*KERNEL "O" PAGE ADDRESS REGISTERS 
KDPARO- 172360 
KDPAR1- 172362 
KDPAR2- 172364 
KDPAR3- 172366 
KDPAR4- 172370 
KDPAR5- 172372 
KDPAR6- 172374 
KDPAR7* 172376 
,ENDC 



.SDTTL TSU05 REGISTER AND PACKET DEFINITIONS 



SOME GENERAL EQUATES, 



i 



000004 



ERRVEC' 



» POINTER TO ERROR VECTOR FOR BUS TIME OUT, 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 18;55 
TSU05 REGISTER AND PACKET DEFINITIONS 



l<2 



SEQ 023 



48 


000060 


49 


177560 


50 


177562 


51 


177520 


52 




53 




54 




55 




56 




57 


100000 


58 


040000 


59 


020000 


60 


010000 


61 


004000 


62 


002000 


63 


001400 


64 


000200 


65 


000100 


66 


000060 


67 


000016 


68 




69 




70 




71 




72 




73 




74 




75 




76 




77 


100000 


78 


040000 


79 


020000 


80 


010000 


81 


004000 


82 


002000 


83 


001000 


84 


000400 


85 


000200 


86 


000100 


87 


000040 


88 


000020 


89 


000010 


90 


000004 


91 


000002 


92 


000001 


93 




94 




95 




96 




97 




98 




99 


100000 


100 


040000 


101 


020000 


102 


017375 


103 


000400 


104 


000002 



TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 


BDVPCR-- 


177520 



j INTERRUPT VECTOR FOP CONSOLE INPUT 
I BUS ADDRESS OF CONSOLE INPUT 
j CONSOLE INPUT DATA BUFFER 
I BDV11 PAGE CONTROL REGISTER 



i BIT DEFINITIONS FOR TSSR REGISTER 



SC- 


BIT15 


BxE- 


BIT14 


SCE- 


BIT13 


RMR- 


BIT12 


NXM- 


BITU 


N8A- 


BIT10 


HIADDR- 


BIT9JBIT8 


SSR- 


BIT7 


OFL- 


BIT6 


FATERR- 


BIT45BIT5 


TERCLS- 


BIT3»BIT2!BIT1 



I SPECIAL CONDITION 

jBUS INTERFACE ERROR 

j SANITY CHECK ERROR 

i MODIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

I NEED BUFFER ADDRESS 

{EXTENDED ADDRESS BITS 

j SUB SYSTEM READY 

,OFF LINE BIT 

j FATAL TERMINATION ERROR CODES 

j TERMINATION CODES 



} ♦ 



j BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 

;(XSTO) 

j 

; - 



XSOTMK 
XSORLS 
XSOLET 
XSORLL 
XSOWLE 
XSONEF 
XSOILC 
XSOILA 
XSOMOT 
XSOONL 
XSOIE- 
XSOVCK 
XSOPED 
XSOWLK 
XSOBOT 
XSOEOT 



BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BITIO 

BIT9 

BITS 

BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BIT1 

BITO 



(BIT DEFINITIONS 
j(XSTl) 



TAPE MARK DETECTED 
RECORD LENGTH SHORT 
LOGICAL END OF TAPE 
RECORD LENGTH LONG 
WRITE LOCK ERROR 
NON EXECUTABLE FUNCTION 
ILLEGAL COMMAND 
ILLEGAL ADDRESS 
TAPE IN MOTION 
TRANSPORT ON LINE 
INTERRUPT ENABLE 
VOLUME CHECK BIT 
PHASE ENCODEO DRIVE 
WRITE LOCKED 
BEGINNING OF TAPE 
END OF TAPE 



FOR EXTENDED STATUS REGISTER 1 



Xl.DLT 

XI .SPARE 
XI. COR 
X1.MB2 
Xl.RBP 
Xl.UNC 



BIT15 iDATA LATE 

BIT14 ,N0 T USED 

BITU ^CORRECTABLE DATA ERROR 

BIT12*BITll*BIT10*BIT9»BIT7»BIT6*BIT5*BIT4*Bir3*BIT2*BIT0 j ALWAYS 

BIT8 jREAD BUS PARITY ERROR 

BIT1 j UNCORRECTABLE DATA OR HARD ERROR 



L° 



C 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18;55 
TSU05 REGISTER AND PACKET DEFINITIONS 



SEQ 024 



105 




106 




107 




108 




109 




110 


100000 


111 


040000 


112 


035400 


113 


002CO0 


114 


000200 


115 


000100 


116 


000077 


117 


000007 


118 




119 




120 




121 




122 




123 


177400 


124 


000200 


125 


000100 


126 


000040 


127 


000020 


128 


000010 


129 


000006 


130 


000001 


131 




132 




133 




134 




135 




136 


100000 


13? 


040000 


138 


020000 


139 


017400 


140 


000377 


141 




142 




143 




144 




145 




146 




14 7 




148 




149 


000006 


150 


000006 


151 




152 




153 




154 




155 




156 




157 




158 


000000 


159 


000000 


160 


000001 


161 


000001 



! BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
}(XST2) 



X2.0PM 

X2,RCE 

X2. SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 jOPERATION IN PROGRESS CTAPE MOVING) 

BIT 14 jRAM CHECKSUM ERROR 

BIT13*BIT12*BIT11*BIT9*BIT8 jNOT USED BY TSU05 (ALWAYS-O) 
BIT10 jURITE CLOCK FAILURE (FIFO NOT EMPTIED By TRANSPORT) 

BIT7 | IF WRITE CHAR CMD THEN - EXTENDED FEATURES ENABLED 

BIT6 | IF WRITE CHAR CMD THEN - BUFFERING ENABLED 

000077 | IF WRITE CHAR CMD THEN - MICROCODE REVISION LEVEL 
BIT2fBITl*BIT0 |IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



iBIT DEFINITIONS 
KXST3) 



FOR EXTENDFD STATUS REGISTER 3 



X3.MDE 

X3.SP/\"!E 

X3.0PI 

X3.REV 

X3.TRF 

X3,DCK 

X3.MBZ 

X3.RIB 



177400 
BIT7 
BIT6 
BITS 
BIT4 
BIT3 
BIT2*BIT1 
8IT0 



iMICRO-DIAGNOSTIC ERROR CODE 

;N0T USED BY TSU05 

l OPERATION INCOMPLETE 

j REVERSE 

j TRANSPORT RESPONSE FAILURE 

jDENSITY CHECK 

j NOT USED ALWAYS 

j REVERSE INTO BOT 



iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
i(XST4) 



i - 

X4.K' : P 
X4.RCE 
X4.TSM 
X4.MBZ 
X4 . WRC 



i * 



BIT 15 j HIGH SPEED 

BIT14 jRETRY COUNT EXCEEDED 

BIT13 i TRANSPORT SPECIAL MODE 

BIT12^BIT11»BIT10»BIT9»BIT8 {NOT USED ALWAYS 
000377 tWRITE RETRY COUNT FIELD 



iTSSR TERMINATION CODES CBXT 0-2) 

i - 



TSRF.J- 3*2 
UNREC- 6 



j DEVICE REGISTER OFFSETS 

i 

J 



{COMMAND REJECTED 
j UNRECOVERABLE ERROR 



TSBA- 
TSDB-' 
TSBAH' 
TSDBH 1 



jTSDB/TSBA REGISTER 
iTSDB/TSBA REGISTER HIGH BYTE 



TSV3 - GLOBAL A.-JEAS MACRO M1113 01-FEB-84 18:55 
TSU05 REGISTER AND PACKET DEFINITIONS 



TSSR-- 2 
TSSRH-- 3 



M2 



SEQ 025 



162 


000002 


163 


000003 


164 




165 




166 




167 




168 


000003 


169 




170 




171 




172 




172 


0000 l 7 


174 


000013 


175 


0000i2 


176 


000011 


177 


000010 


178 


000006 


179 


000005 


180 


000004 


181 


000001 


182 




183 




184 




185 




186 


100000 


187 


040000 


188 


020000 


189 


010000 


190 


007400 


191 


000200 


192 


000140 


193 


000037 


194 




195 




196 




197 


000000 


198 


000400 


199 


001000 


200 


002000 


201 


002400 


202 




203 




204 




205 




206 


000167 


207 


000200 


208 


000201 


209 


000210 


210 


000215 


211 


000234 


212 




213 




214 




215 




216 




217 




axe 


000006 



iTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



{ ♦ 



TSDB ADDRESS BIT DEFINITIONS 

- BIT1*BIT0 {ADDRESS BITS 17:16 ARE IN 1:0 



A1716 



COMMAND DEFINITIONS 



P.GETSTAT 
P.INIT 
P. CONTROL 
P. FORMAT 
P. POSITION 
P.WRTSUB 
P. WRITE 
P.WRTCHAR 
P. READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



jGET STATUS 

i INITIALIZE 

{CONTROL COMMANDS 

{FORMAT 

{POSITION 

{SUBSYSTEM WRITE 

{WRITE 

{WRITE CHARACTERISTICS 

{READ 



COMMAND PACKET HEADER WORD BIT DEFINITIONS 



l • 



P.ACK - BIT15 

P.CVC - BIT14 

P.OPP - BIT13 

P.SWB ■ BIT12 

P.MODL - BIT11»BIT10»BI 

P. IE - BIT7 

P.FMT- BIT6IBIT5 

P.CMD - 37 


{BUFFER AVAIL FOR CONTROLLER 

{CLEAR VOLUME CHECK 

{REVERSE SEQUENCE OF DATA BITS 

i'-WAP BYTES IN MEMORY 

\ '.MBIT8 {EXTENOED COMMAND MODE FIEL 

{INTERRUPT ENABLE 

{PACKET HEADER TYPE (ALWAYS'O) 

{MAJOR COMMAND FIELD 


1 CONTROL COMMAND MODE CODES 






PC. RELEASE - 0*256. 
PC. REWIND - 1*256. 
PC.NOOP - 2*256. 
PC.IEREW - 4*256. 
PC. ERASE « 5*256. 




{RELEASE BUFFER 

{REWIND 

{NO-OP 

{REWIND IMMEDIATE INTERRUPT 

{SECURITY ERASE 


\ CONTROLLER RAM DEFINITIONS 







RMCHBEG - 167 

RMCHENO - 200 

RMPKTBEG* 201 

RMPKTEND- 210 

RMMSGBEG- 215 

RMMSGF.ND- 234 
{ * 



{CHARACTERISTICS 10 DAI A BEGIN RAM ADDRESS 
{CHARACTERISTICS 10 DATA END RAM ADDRESS 
: COMMAND PACKET BEGIN RAN ADDRESS 
{COMMAND PACKET END RAM ADDRESS 
{MESSAGE BUFFER BEGIN RAM ADDRESS 
{MESSAGE BUFFER END RAM ADDRESS 



{REGISTER DEFINITIONS IN THE MESSAGE BUFFER 



XSTO; 



{EXTENDED STA T 'JS REGISTER CWORD 4) 



N2 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FFB-84 18i55 
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SEQ 026 



219 


000010 


220 


000012 


221 


000C14 


222 


000016 


223 




224 




225 




226 




227 




228 




229 




230 




231 


(. 00002 


232 


01 0004 


033 


000 006 


234 




235 


000 )10 


236 




237 




238 




239 




240 


000000 


241 


000001 


242 


000002 


243 


000004 


244 




245 




246 




24 7 




248 


000000 


249 


000001 


250 


000002 


251 


000003 


252 


000004 


253 


000005 


254 


000006 


255 


000007 


256 


000010 


257 


OOOOil 


258 


000020 


259 


000021 


260 


000022 


261 


000023 


262 


000024 


263 




264 




265 




266 




267 


000200 


268 


000100 


269 


000040 


270 


000020 


rn 


000010 


.:.'.? 


000004 


rtl 


000002 


274 


000001 


275 





XST1-- 8. 

XST2-- 10, 

XST3-« 12. 

XST4*= 14. 



lEXTENDED STATUS REGISTER 1 CWORD 5) 
i EXTENDED STATUS RF.GISTER 2 CWORD 6) 
{EXTENDED STATUS REGISTER 3 (WORD 7) 
lEXTENDED STATUS REGISTER 4 CWORD 8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW ■ 2 
PKHI * 4 
PKBCNT » 6 

EXBCNT*10 



{LOW ORDER CHARACTERISTIC DATA POINTER 
{HIGH ORDER CHARACTERISTIC DATA POINTER 
;NUMBER OF BYTES IN DATA PACKET 

{NUMBER OF BYTES IN EXTENDED DATA PACKET 



IDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 



I - 



BSELO 


- 


BSEL1 


. 1 


SEL2 


* 2 


SELDATA - 4 


: BSELO SELECT CODES 


PW.NOP 


• 


PW. RDRAM 


- 1 


PU.WTRAM 


- 2 


PW,RFIFO 


* 3 


PW.WFIFO 


- 4 


PW.RDSTAT 


* 5 


PW,WCTL 


- 6 


PW.WFMT 


- 7 


PN.WMISC 


- 10 


PW.WNPR 


- 11 


PW.D2? 


• 20 


PW.D11 


- 21 


PW.D13 


« 22 


PW.N01311 


* 23 


PW.RDEXT 


- 24 



BYTE 
BYTE 1 
WORD 2 
WORD 3 



{NO-OP 

{READ RAM 

{WRITE RAM 

{READ FIFO 

{WRITE FIFO 

{READ STATUS 

{WRITE TAPE CONTROL 

jWRITE TAPE FORMAT 

{WRITE MISCELLANEOUS 

{WRITE NPR CONTROL 

{DO MICROTEST 22 

{DO MICROTEST 11 

{DO MICROTEST 13 

{DISABLE MICROTEST U AND 13 



{READ EXT. TAPE SIM.HJS (NOT SUPPORTED BY ALL TRANSPORTS 



lO'iELl CODES FOR WRITE TAPE CONTROL 



UC . IFAD 


- BIT7 


j IFAD - 


WC.TOTAD 


- BIT6 


jITADO 


UC.I1TAD 


- BIT5 


{ITAD1 


UC.I5RESV 


- BIT4 


{IRESV5 


WC . IREW 


■ BIT3 


{IREU 


WC . IRWU 


- BIT2 


{IRUU 


WC.IFEN 


- BIT1 


{IFEN 


WC.IGO 


* BITO 


{GO 



FORMATTER ADDRESS 

- TRANSPORT ADDRESS BIT 

- TRANSPORT ADDRESS BIT 1 

- RESERVED 05 

- REWIND 

- REWIND AND UNLOAD 

- FORMATTER ENABLE 



B3 



TSV3 - GLOBAL 


AREAS 


TSU05 REGISTER 


AND PACI 


276 




277 




2 78 




279 


000200 


280 


000100 


281 


000040 


282 


000020 


283 


000010 


284 


000004 


285 


000002 


286 


000001 


287 




288 




289 




290 




291 




2>)2 


000200 


293 


000020 


294 


000010 


295 


000006 


296 


000001 


297 




298 




299 




300 


000000 


301 


000002 


302 


000004 


303 


000006 


304 




305 




306 




307 


000200 


308 


000100 


309 


000040 


310 


000020 


311 




312 




313 




314 




315 


000200 


316 


000 100 


317 


000040 


318 


000020 


319 


000010 


320 


000004 


321 


000003 


322 


iooooo 


323 


040000 


324 


020000 


325 


oioooo 


326 


004000 


327 


002000 


328 


0010C0 


329 


000400 


330 


000200 


331 


00C100 


33.2 


000040 



MACRO M1U3 01-FEB-34 18i55 

;t definitions 



i ♦ 



SEQ 027 



iBSELl CODES FOR WRITE FORMAT 



WF , IHISP 


- BIT7 


IHISP 


- HIGH SPEED 


WF.IWRT 


- BIT6 


IWRT 


- WRITE 


WF, kREV 


• BITS 


IREV 


• REVERSE 


WF.IWFM 


• BIT4 


IWFM 


- WRITE FILE MARK 


WF.IEDIT 


• BIT3 


IEDIT 


- EDIT 


WF.IERASE 


« BIT2 


IERASE 


- ERASE 


WF.I3RESV 


• BIT1 


IRESV3 


- RESERVED *3 


WF.I4RESV 


■ BITO 


IRESV4 


- RESERVED OA 



iBSELl CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



BIT7 

BIT4 

BIT3 

BI\2!BIT1 

BITO 



MS. EXT 
MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 

l MS. ATTN SUBCODES 

* - 

MSA. NOP • 0*2 

MSA. VOL • 1*2 

MSA.NRAM- 2*2 

MSA.FRAM- 3*2 

i WRITE SUBSYSTEM WRIU NPR BSEL1 BIT DEFINITIONS 



I INVERT SENSE OF EXTENOED FEATURES SWITCH 
iRESET FIFO AND INPUT PARITY ERRORR 
iRESET TAPE STATUS IN 2 FLIP-FLOPS 
lATTENTION TRIGGER FIELD 
iRESET TIMER A,B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 
jSIfMLATE ON-LINE/OFF-LINE TRANSISTION 
iFORCE NON-FATAL RAM FRROR (FORCES ERRCOOF 
iFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54) 



NP.IR 

NP.OUT 
NP.LOOP 

NP.WRP 

I READ STATUS 

S2.DIM 

S2.IL>! 

S2.0UTRDY 

S2.INRDY 

S2.ATIMR 

S2.BTIMR 

S2.UN0EF 

Si.PARIN 

SI.I2RESV 

S1.I1RESV 

Sl.IEOT 

Sl.IIDENT 

Sl.ICER 

Sl.IFMK 

S1.IHER 

SO.ISPEEQ 

SO.IRDY 

SOtXONL 



bit; 

BIT6 
BIT5 
BIT4 



iINTERRUPT REQUEST (0-1 TRANSITION) 

i TAPE DATA DIRECTION OUT (0- IN) 

I ENABLE TRANSPORT LOOPBACK 

I WRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



MESSAGE BUFFER BIT DEFINITIONS 



BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BITWBITO 

BIT15 

BIT14 

BIT13 

BIT12 

BITll 

BITIO 

BIT9 

BITS 

RTT7 

BiT6 

BITS 



WORD #9 BYTE 2 DATA IN MISS 
ILW H 
OUT RDY H 
IN RDY H 
TIMER A FLAG H 
TIM6R B FLAG H 

(LNDEFINED) 

WORD 08 BYTE I PARIN H 
IRESV2 
IRESVi 
IEOT I 
IIOENT H 
ICFR H 
IFHK h 
IHER H 

WORD 06 BYTE ISPEED H 
TROY L 
IONL L 



TSV3 - GLOBAL AREAS A MACRO Mlll^ 01-FEB84 18s55 
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C3 



SEQ 028 



335 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 

34 7 
348 
349 
350 
351 
352 
353 
354 
355 
356 

35 7 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
383 
369 



000020 
000010 
000004 
000002 
000001 



170200 



SO.ILDP 


• BIT4 , 


SO.IDBY 


- BIT3 i 


SO.IRWD 


■ BIT2 i 


SO.IFBY 


• BIT1 » 


SO.IFPT 


- BITO , 



ILOP L 
IDBY L 
IRWO L 
IFBY L 
IFPT L 



lUNIBUS MAP DEFLATIONS 
MMRO- 170200 



.SBTTL SPECIAL MACROS ANO OPOEFS, 



I SAVE GENERAL REGS 1 TO 5 
J - 

.MACRO SAVREG 
JSR R5,REGSAV 
.ENOM 

i MACRO TO FORCE AN ERROR 

.MACRO FORCERROR TAG.NOTSSR 

.NLIST 

.IIF HOF LISTALL, .NLIST 

.LIST 

.IF 3 NOTSSR 

MOV TSSR(R5),R1 
.ENOC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

. A IF NOF LISTALL, .LIST 
.LIST 
.ENOM 

! MACRO TO FORCE AN EXIT TO AVOID SECTION ITJ NATIONS 

» WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 

j SO TO FORCE ERRORS ANO EXIT ON 1 ERROK SET 

i FORCER TO 177777 

i TO FORCE ERRORS ANO ITERATIONS SET FORCER TO 1, 

.MACRO FORCEXIT TAG 
.NLIST 

.IIF NOF LISTALL, .NLIST 
LIST 

MOV FORCER, FORCER J IS FARCER NEGATIVE? 

BMT TAG | BR IF YES 

.NLIST 

.IIF NOF LISTALL, ,LIST 
.LIST 

.ENOM 
1 * 



iREAD TSSR 

I IS FORCER SET? (LEAVE C BIT ALONE) 
iBR IF YES 



D3 



TSV3 - GLOBAL AREAS 
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SEQ 029 



390 
391 

392 
395 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
4C9 
410 
411 
41? 
413 
414 
415 
416 
417 
418 
419 
420 
4.21 
422 
423 
424 
415 
426 
427 
428 
429 
4 30 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 



000000 



002170 000000 



002172 
002174 
002176 
002200 
002202 
002204 
002206 
002210 
002212 
002214 
002216 



000000 
000000 
000000 
000000 
000224 
000200 
000000 
000000 
000000 
000000 
000000 



I MACRO TO INCREMENT ERROR COUNTS 

I - 

.MACRO NEXT.ERRNO 

.NLIST 

lli.IIF NDF LISTALL. .NLIST 

ERRNO-ERRNOfi 
lli.IIF NDF LISTALL, .LIST 
.LIST 
.ENDM 

I MACRO TO PERFORM XOR 
1 - 



.MACRO 


XOR A,B 


MOV 


A.-(SP) 


BIC 


B.CSP) 


8IC 


A.B 


BIS 


CSP)*,B 


.ENOM 




EN'O 




.SBTTL 


FORCER - F 



I INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



I THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE U3ER 
I TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER j j 



i FORCE TYPE ALL HARD ERRORS (THE ONLS CALLED 

1 - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
I - EXIST. JUST ASSUME AND TYPE THE MESSAGE. 



.SBTTL GLOBAL DATA SECTION 



i THE GLOBAL OATA SECTION CONTAINS DATA THAT ARE USED 
I IN MORE THAN ONE TEST. 
; -- 

I THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
iSINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 

iPRINT SUITCH 
» WIT * UNDER TEST. 
iCJICK VERIFY FLAG. 
I ADDRESS OF CSR FOR 
I INTERRUPT VECTOR 
I INTERRUPT 
iK-.IBER OF 
iPEMAINING 
iNL^ietR OF 
♦SET IF 

i SET IF 



EPRTSWt 


.WORD 





UNITNt; 


.WORD 


C 


QVP: : 


.WORD 





CSRADDR 


: .WORD 





IVEC: t 


.WORD 


224 


IPRI:: 


.WORD 


PRI04 


TSTCNT: 


.WORD 





L00PCN1 


: .WORD 





DEVCNTj 


.WORD 





FATFLGj 


.WORD 





INTRECV 


l .WORD 






CURRENT DEVICE 

PRIORITY. 

TESTS RUN TN THIS PASS 

ITERATION COUNT FOR TEST 

DEVICE UNOER TEST 
FATAL ERROR IS DETECTED IN TEST 
TAPE INTERRUPT WAS RECEIVED 



E3 



TSV3 - GLOBAL AREAS 
GLOBAL DATA SECTION 



447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
456 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
4 78 
4 79 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
505 



002220 
002222 
002224 
002226 
002230 
002232 
002234 
002274 
002276 
002300 
002302 
002304 
002306 
002310 
002312 
002314 
002460 
002624 



002744 
002744 
002746 
002750 
002752 
002754 
002756 
002760 
002762 
002764 
002766 
002770 
002772 
0C2774 
0027^6 
003000 
003002 
003004 
003006 
003010 
005012 



000000 
000000 
000000 
000000 
000000 
000000 

000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



oooooo 

177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
OlOOOO 
C20000 
040000 
100000 
177776 
177775 
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EXTFEA: 

BEN8SW: 

EXPOs 

RECVt 

ERRHI 

ERRLO 

RAMOATA:; 

RAMSIZ:: 

RCVHIADD: 

RCVLOADD: 

COUNT : : 

DATA: : 

TSTFLAGti 

TSTPTR 

PRMNOj 

EXPMSG 

RECMSG 

TMPBFR 



SEQ 030 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.BLKW 


16. 


.WORD 





.WORD 





.WORD 





.WORO 





.WORD 





.WORD 





.WORD 





.WORD 





.BLKB 


100. 


.BLKB 


100. 


,BLKB 


80. 



{EXTENDED FEATURES SOFTWARE SW 0-OFl-,l-ON 

iBUFFER ENABLE SWITCH SW O-OFFjl-ON 

lEXPECTED RAM DATA FOR PRAMPKT ROUTINE 

iRECEIVED RAM DATA FOR PRAMPKT ROUTINE 

I HIGH ADDRESS MEMORY ERROR 

{LOW ADDRESS MEMORY ERROR 

{DATA READ FROM RAM PACKET OR MESSAGE BUF AREA 

»RAM DATA SIZE FOR PRAMPKT ROUTINE 

{RECEIVED BUFFER HIGH ADDRESS 

l RECEIVED BUFFER LOW ADDRESS 

I TEST COUNT PATTERN 

iTEST DATA 

j TEST FLAG WORD 

iTSTBLK POINTER 

{PRINT ROUTINE TEMP 

{EXPECTED MESSAGE BUFFER DATA 

{RECEIVED MESSAGE BUFFEP *UA 

{TEMPORARY STORAGE FOR PRINT 



.SBTYL TSTBLK - TEST DATA TABLE 

t- 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA ISs 

ALL TEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

AL'ERNATINU ONES AND ZEROS 

TSTBLK j j 



.WORO 





{ALL ZEROS 


.WORD 


177777 


{ALL ONES 


.WORO 


BITO 


{DATA FOR WALKING ONES 


.WORD 


BIT1 




.WORD 


BIT2 




.WORD 


BIT3 




.WORD 


BIT4 




.WORD 


BIT5 




.WORO 


BIT6 




.WORD 


BJ.T7 




.WORD 


BIT8 




.WORD 


BIT9 




.WORD 


BIT10 




.WORO 


BIT11 




.WORD 


BIT12 




.WORD 


BIT13 




.WORD 


BIT14 




.WORD 


BIT15 




.WORD 


tCBITO 


{DATA FOR WALKING ZERO 


.WORD 


tCBITl 





F3 
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TSTBLK - TEST DATA TABLE 



01-FEB-84 18:55 



SEQ 031 



504 003014 

505 003016 

506 003020 

507 003022 

508 003024 

509 003026 

510 003030 

511 003032 

512 003034 

513 003036 

514 003040 

515 003042 

516 003044 

517 003046 
5.16 003050 
519 003052 
520 

521 
522 
523 
52-3 
525 

527 003054 

528 003064 
529 

530 

531 

532 003104 

533 

534 003106 

535 

536 003110 

537 003112 

538 003114 

539 003116 

540 003120 

541 003122 

542 003124 
543 

544 

545 003126 

546 003130 

547 003132 

548 003134 

549 003136 

550 003140 

551 003142 

552 003144 

553 003146 

554 003150 

555 003152 

556 003154 

557 003156 

558 003156 

559 003160 

560 003162 



177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
157777 
077777 
125252 
052^25 
003054 



000000 100000 000000 
000000 000000 000000 



000000 

000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
002000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 



.WORD 


tCBIT2 


.WORD 


tCBIT3 


.WORD 


tCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBIT6 


.WORD 


♦CBIT7 


.WORD 


tCBIT8 


.WORD 


tCBIT9 


.WORD 


tCBITIO 


.WORD 


tCBITll 


.WORD 


tCBIT12 


.WORD 


tCBIT13 


.WORD 


tCBIT14 


.WORD 


tCBIT15 


.WORD 


125252 


.WORD 


052525 


TBLEND-". 





$ ALTERNATING ONES, 7ER0S 

j ALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 



.SBTTL GLOBAL ENVIRONMENT STORAGE 

I STORAGE FOR DEVICE REGISTERS 

DUMMY: 0,100000.0.0 jDUMMY DEVICE REGISTERS... 
0,0,0,0,0,0,0,0 

j... FOR MULTI-UNIT CHECKOUT. 



OUFLG:: 


.WORD 





NODEV;: 


.WORD 





TEMPI:: 


.WORD 





TEMP2:: 


.WORD 





XXCOMM;, 


.WORD 





FREE:: 


.WORD 





FRESH: 


.WORD 





FREEHI: 


. WORD 




KTFLG*: 


.WORD 





KTENABLE:: .UORD 





NXMFLG: 


.WORD 





NXMLO: : 


.WORD 





NXMHI:: 


.WORD 





T23A:: 


.WORD 





T23B;: 


.WORD 





T3BFLG: 


.WORD 





PST32W: 


.WORD 


200G 


SIFLAG: 


.WORD 





BADDATt 


.WORD 





GODAT : : 


.WORD 





LOOPFL : 


.WORD 





CTAB:: 






CTABM:: 


.WORD 







.WORD 







.WORD 






T'DROPPED UNIT" FLAG. 

j INHIBITS CODE IN "CLEAN-UP". 

jFLAG TO SAY NO DEVICE. 

;SOME TEMP LOCATIONS. 

jXXDP* COMM BLOCK POINTER. 
1 1ST FREE MEMORY ADDRESS... 
i., .AND SIZE (IN WORDS). 
jLAST WORD IN FREE SPACE 

iKTll, MEM AVAIL FLAG - 

j- .WORD • <24K OR NO KT - 

j- NZ • >24K AND KT, 

iSET BY TEST ROUTINES TO FLAG >28K UNOER 

l SET IF WE CAN TEST CLEARED OTHERWISE 

iNXM LO ADDRESS BITS 

jNXM HI ADDRESS BITS FOR DAL'S 16-21 

iPROCESSOR TYPE FLAG 

{PROCESSOR TYPE FLAG B 

iTEST 3B FLAG '0 

»32W BLOCK ADDRESS FOR 32K START 

i ACTUAL DATA 
lEXPECTED DATA 

{CONFIGURATION TABLES. 
I CONFIG WORK. 



TEST 



G3 
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SEQ 032 



561 003164 

562 003166 

563 003170 
564 

563 
566 
567 
568 
569 
570 
571 
572 

573 003170 

574 003370 
575 

576 003372 

577 

578 

579 

580 

581 

582 

583 

58*! 

585 

586 

587 

588 

589 

590 

591 003374 
003374 
003374 

592 

613 

61" 

615 

616 003402 
003402 
003402 



'-18 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
6;>9 
6 30 
631 
632 



003472 
003512 
003532 
003535 
003541 
003545 
003551 
003555 



000000 
177777 



000000 
000000 



124 



123 



125 



052 



052 



052 



003532' 
003573' 
123 
102 
123 
122 
116 
116 



003535 

003577 
103 
111 
103 
115 
130 
102 



003541- 
003603- 
000 
105 
105 
122 
115 
101 



.WORD 

.WORD -1 i END OF MEM TABLE. 

CTABE: j 

j ERROR STATISTICS TABLE CI WORD PER UNIT), 64 UNITS MAX: 

; ■ UNIT NOT TESTED 

; 100000 ■ UNIT ONLINE, NO ERRORS 

j 10XXXX ■ UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

; 160000 - UNIT DROPPED, NON-EXISTENT DEVICE REGISTER 

; 160001 ■ UNIT DROPPED, NOT IDLE AT START 

14XXXX » UNIT DROPPED, ENCOUNTERED XXXX ERRORS 



i 

ERTABLt 
ERTABE: 

SKIPT: 



.BLKW 
.WORD 



64. 





.WORD 
.SBTTL 



il-SKIP SUBTEST 0-NO SKIP OF SU8TEST 

GLOBAL TEXT MESSAGES 



t THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
i MESSAGES, AND ASCII INFORMATION THAT AR£ USED IN 
i MORE THAN ONE TEST. 
t -- 



j NAMES OF DEVICES SUPPORTED 
J - 

DEVTYP <TSU05> 
L$DVTYPj: 

.ASCIZ /TSU05/ 
.EVEN 

j TEST DESCRIPTION 
i - 

DESCRIPT v**** TSU05 DIAG PART 4 - CHECK TRANSPORT IF ERROR *+♦*> 
LIDESCt: 

.ASC.Z /***♦ TSU05 DIAG PART 4 « CHECK TRANSPORT IF ERROR ****/ 

.EVEN 



(BIT TO ASCII CONVERSION FOR TSSR REGISTER 
; - 



TSSRBITj 



It 
2$ 
3* 
4$ 

5$ 
6$ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.WORO 
.WORD 
' SC* 

'BIE' 
'SCE' 
'RMR' 

•NXM' 
'NBA' 



1$, 2$, 3$. 4$, 5$, 6$, 7$, 8$ 

9$, 10$, 11 $,12$. 13$, 14 $,15$ ,16$ 



3 
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SEQ 033 



633 003561 
L34 003566 

635 003573 

636 003577 

637 003603 

638 003610 

639 003615 

640 003622 

641 003627 

642 003634 
643 

644 003642 

645 003675 

646 003730 

647 003767 

648 004010 

649 004050 

650 004107 

651 004113 

652 004142 

653 004205 

654 004211 

655 004246 

656 004;* 70 

657 004325 

658 004377 

659 004447 
660 

661 004517 

662 004520 

663 004523 

664 004557 

665 004633 

666 004735 

667 005003 

668 005046 

669 005303 

670 005176 

671 0052 70 

672 005362 

673 005450 
674 

675 
676 
677 
678 
679 
680 
681 
682 
683 

684 005544 
005544 

685 005544 
005544 
005550 
005554 



102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 



111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 
116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
123 
101 
122 
116 



124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
HI 
045 
116 
111 
040 
C42 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 



7$; 
8$j 
9$: 

10$ 
11$ 
12$ 

13$ 
14$ 
15$ 
16$ 



SFIERRs 
SFHErtR j 
NXR: 
NXRX: 
TSSX: 

FUSI: 

USI: 

NSI: 

FNOINTR 

NOINTR: 

IFAUL1 : 

INTX: 

NOINIT 

NSINIT 

BRINIT 

NUL: 

NULCR: 

EXPGOT 

EXPGT2 

DUA012 

PKTRAM 

SCME: 

WRTMSG: 

WATERR: 

RDERR: 

SCHERR: 

RETERR; 

NOMEM? 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



•BI(9' 

'BITS' 

'SSR' 

• OFL' 

'BIT5' 

'BIT4' 

'BIT3' 

»BIT2' 

•BIT1' 

'BITO' 

•TSSR ERROR AFTER SOFT INIT' 

'TSSR ERROR AFTER BUS RESET' 

/ NQN-EXISTANT DEVICE REGISTER/ 

/#A ADDRESS: #06/ 

/#A TSBA f TSSR EXP'D: #06#A,#06#N/ 

/#A TSBA.TSSR REC'D: #06#A»#06/ 

/#N#A/ 

/ UNEXPECTED INTERRUPT/ 

/ INTERRUPT EXPECTED, NOT RECEIVED/ 

.ASCII /#N#A/ 

/ NO INTERRUPT UAS GENERATED/ 

/ INTERRUPT FAULT/ 

/#A CPU PC: #06#A TSBA: #06/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SGFT-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/#N/ 

/#A EXP'D: #06#A. REC'D: #06/ 

/#N#A EXP'D: #06*A, #06#N#A REC'D: #0#A, #06/ 

/#A REG(W) URITTEN TO: #06#A REG(R) READ: EXP'D: #06#A, REC'D: #06/ 

.ASCIZ 'RAM Contents Do Not Match Packet Sent' 

/ CONFIG DOESN'T MATCH HFG. MASTER/ 

♦WRITE CHARACTERISTICS Failed' 

'TSSR Incorrect After WRITE Command. More Bits Set Than SSR' 

'TSSR Incorrect After READ Command. More Bits Set Than SSR' 

•FATAL ERROR IN SUBTEST - CHECK TAPE .CABLES. TRANSPORT etc' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

»#N#A ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ******N' 



.SBTTL GLOBAL ERROR REPORT SECTION 

l *♦ 

i THE GLOBAL ERROR REPORV SECTION CONTAINS THE PRINTB AND PRINTX 

i CALLS THAT ARE USED IN MORE THAN ONE TEST. 

j ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

, -- 



NXRERR:: 



QGNhSG NXRERR 



013746 

012746 
012746 



003; 06 
003767 
000002 



PRINTX 
MOV 
MOV 
MOV 



©NXRX, NODE V 
NODEV, -(SP) 
ONXRX.-(SP) 
42.-CSP) 



jNON-EXISTANT DEVICE REGISTER, 
I NODE V - NEXM ADDRESS, 



13 
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SEQ 034 



686 

687 



688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 



005560 
005562 
005564 
005570 
005574 
005574 
005574 



699 

700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 



005576 
005600 
005602 
005604 
005610 
005610 
005614 
005620 
005622 
005624 
005630 



723 
724 
725 
726 



005632 
005632 
005636 
005640 
005640 
005642 
005646 
005652 
005654 
005656 
005662 
005664 
005670 
005672 



010600 
104415 

062706 000006 
004737 005576' 



104423 



010J04 

01s>446 
012746 
0)2746 
010600 
104414 
062706 
010400 
004737 
103410 



MOV 


SP.RO 


TRAP 


C1PNTX 


ADO 


06, SP 


JSR 


PC, EXTEND 


ENDM3G 




L10002: 





j PRINT EXTENSION IF RFQU1RED. 



TRAP 



C$MSG 



005727 
000000 
001402 
004777 177770 

012746 004520 

012746 000001 

010600 

1044 IS 

062706 000004 

000207 



i THIS ROUTINE APPENDS A UNIQUE EXTENSION C IF REQUIRED) 
5 TO ANY OF THE ABOVE ERROR SIGNATURES, 

XTEND: TST (PC)* 

I ■ NO EXTENSION. 

I APPEND EXTENSION TEXT, 
l PRINT A BLANK LINE 



EXTEND'. 


TST 


(PC)* 


EXTAj 









BEQ 


1$ 




JSR 


PC.BEXTA 


l*t 


PRINTX 


ONULCR 




MOV 


ONULCR. -CSP) 




MOV 


01,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADO 


04, SP 




RTS 


PC 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 
* 

ROUTINE TO DISPLAY THE CONTENTS, AND SIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROJTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS; 

Rl CONTENTS OF TSSR 
SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



PRITSSR: 



006305' 
000002 



000006 
015734 



SAVREG 

MOV R1.R4 

PRINTS 0TSSRF0R.R4 

MOV R4.-CSP) 

MOV OTSSRFOR,-(SP) 

MOV 02, -(SP) 

MOV SP.RO 

TRAP CIPNTB 

ADD 06, SP 

MOV R4.R0 

JSR PC. CHKAMB 

BCS 5i 

PRINTX OAMBTSSR 



tSAVE GENERAL REGISTERS 
I SAVE THE TSSR CONTENTS 
j PRINT THE CONTENTS OF TSSR 



j GET TSSR BACK FOR CHKAMB 
j ARE CONTENTS AMBIGUOUS ? 
i BRANCH IF NOT 
j SHOW CONTENTS ARE AMBIGUOUS 



J3 



TSV3 GLOBAL AREAS MACRO M1113 
PRITSSR - PRINT TSSR CONTENTS 



005672 
005676 
005702 
005704 
005706 

727 005712 

728 005714 

729 005720 

730 005722 

731 005726 

732 005732 

733 005734 

734 005736 

735 005740 

736 005742 

737 005744 

738 005/46 

739 005750 

740 005752 

741 005760 

742 005762 

743 005764 

744 005766 
005766 
005772 
005776 
006002 
006004 
006006 

745 

746 006012 

747 006014 

748 006020 

749 006024 
006024 
006026 
006032 
006036 
006040 
006042 

750 006046 

751 006050 

752 006054 

753 006056 

754 006060 

755 006062 

756 006064 
"*!57 006070 

006070 
006072 
006076 
006102 
006104 
006106 

758 0C6112 

759 006116 

760 006120 



012746 
012746 
010600 
104415 
062706 
010403 
042703 
001434 
012702 
012701 
005703 
001413 
000241 
006103 
103006 
011100 
112022 
001376 
112762 
005721 
000763 
105042 

012746 
012746 
012746 
010600 
104415 
062700 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001416 
006203 
006203 
(06203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
04270" 
001411 



006525 
000001 



000004 

001476 

002624 ' 
003472' 



5$j 



10$ j 



000054 177777 



002624 
006476 
000002 



000006 



177761 
006566 



006366 
000002 



000006 
177717 

007126 



006427 ' 
000002 



000006 
176377 
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MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

BIC 

BEQ 

MOV 

MOV 

TST 

BEGJ 

CLC 

ROL 

BCC 

MOV 

MOVB 

BNE 

MOVB 

TST 

BR 

CLRB 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



SEQ 035 



11$: 

13$; 

15$? 



20$: 



25$: 



MOV 

BIC 

MOV 

PRINTX 

MOV 

MOV 

rlOV 

MOV 

TRAP 

ADD 

MOV 

BIC 

BEQ 

ASR 

ASR 

ASR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BIC 

BEQ 

PRINTX 



^MBTSSR.-CSP) 

41,-CSP.) 

SP.RO 

C$PNTX 

04, SP 

R4,R T 

OHIAODRJFATERR! 

20$ 

0TMPBFR.R2 

0TSSRBIT.R1 

R3 

15$ 

R3 

13$ 

CRD.RO 

CR0)*,(R2)» 

11$ 

*• ..-1CR2) 

CRD* 

10$ 

-CR2) 

OTSSOEF.OTMPBFR 

OTMPBFR.-CSP) 

OTSSDEF,-(SP) 

02.-CSP) 

SP,RO 

C$PNTX 

06. SP 

R4.R3 

OtCTERCLS,R3 

TC0C0DCR3),R3 

OTC0ASC,r<3 

R3.-C3P) 

OTCOASC-CSP) 

02, -(SP) 

SP.RO 

C$PNTX 

v6,SP 

R4 R3 

OtCFATERR,R3 

25$ 

R3 

R3 

R5 

TS;-C00CR3),R3 

0TFCASC.R3 

R3.-CSP) 

OTFCASC.-(SP) 

02.-CSP) 

SP.RO 

CtPNTX 

06, SP 

OtCHIADDR,R4 

30 % 

0TEXASC.R4 



j CONTENTS OF TSSR 
TERCLS.R3 jCLEAR ALL MULTIPLE BIT FIELDS 
{NO BITS ARC SET 
j TEMPORARY ASCII BUFFER 
I ASCII EQUIVALENT OF BITS 
i REMAINING BITS TO CONVERT 
j BRANCH WHEN ALL ARE DONE 
I CLEAR CARRY FOR SHIFT 
I SHIFT NEXT BIT TO CARRY 
,ORANCH IF BIT NOT SET 
{POINTER TO BIT DEFINITION 
{MOVE ASCIZ TO BUFFER 
{MOVE ALL BITS 

{INSERT A COMMA TO TERMINATE 
{POINT TC NEXT DESCRIPTION 
iGET THE REMAINING BITS 
{TERMINATE THE LINE 
{PRINT THE BIT DEFINITIONS 



iGET THE TSSR CONTENTS 

{CLEAR ALL BUT TERMINATION 

{GET THE TERMINATION CODE MEANING 

{PRINT THE TERMINATION CODE 



l TSSR CONTENTS AGAIN 

{CLEAR ALL BUT FATAL TERMINATION 

I DON'T PRINT IF ZERO 



jALINE TERMINATION CODE FOR INDEX 
{GET THF TATAL TERMINATION CODE 
jPRINT THE FATAL TERMINATION CODE 



{CLEAR ALL BUT EXTENOED ADDRESS 

I DON' T PRINT IF ZERO 

jPRjlNT THE EXTENDED ADDRESS BITS 



\< 



o 
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761 
762 



763 
764 
779 
780 
762 
783 
7*4 

785 
786 
737 
788 
789 
790 
791 
792 
793 
794 

795 
796 
797 
"98 

799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
617 
818 
819 
820 
821 



006120 
006122 
006126 
006132 
006134 
006136 
006142 
006146 
006146 
006150 
006154 
006156 
006160 
006164 

006166 
006225 
006305 
006325 
006366 
006427 
006476 
0C6525 

006566 
006606 
006631 
006657 
006701 
006721 
007003 
007052 
007076 



007126 
007136 
007172 
007203 
007247 



010446 
032746 
012746 
010600 
104415 
062706 
013703 

03 "346 

012746 
010600 
104415 
062706 
000207 

045 
045 
045 
045 
045 
045 
045 
045 



006325 
000002 



000006 
002172 



000001 
000004 



116 
116 
116 
116 
116 
116 
116 
116 



01-FEB-84 18?55 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MGV 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



006606' 006631 



116 
124 
124 
106 
122 
122 
125 
106 



157 
145 
141 
165 
145 
145 
156 
141 



045 
045 
045 
045 
045 
045 
045 
045 

006657' 
162 
162 
160 
156 
143 
143 
162 
164 



122 



145 



30$: 



EPRT1: 

EPRT2: 

TSSRFC* 

TEXASC 

TCOASC 

TFCASC 

TSSDEF 

AM8TSSR 

TCOCOO: 

1$ 

2$ 

31 

4* 

5$ 

6$ 

7t 

8* 



.ASCIZ 
.ASCIZ 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



007136' 007172' 007203 

111 156 164 1$ 

122 145 163 2* 

102 165 163 



3$ 

163 4$ 



TSFCOD: .WORD 
.ASCIZ 
.ASCIZ 
.ASCIZ 
ASCIZ 
.EVEN 



SEG 03o 



R4 r -(SP) 

4TEXASC, -CSP) 

02,-CSP) 

SP.RO 

C$PNTX 

06, SP 

EPRTSW.R3 

R3 

R3.-CSP) 

U.-CSP) 

SP,RO 

C*PNTX 

04.SP 

PC 

•*N*A ♦♦♦♦♦CHECK 
'«N*A ♦♦-♦♦CHECK 



jPRINT MEAASGE BUFFER ADDRESS 
{PRINT PROPER MESSAGE 



i RETURN TO CALLER 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



TRANSPOKT****^' 

PARITY SWITCH IN TRANSPORT***** 
*N*A TSSR - *06' 

*N*A Extended Address Pits • *06* 
*N*A Termination Class Code - »T' 
*N*A Fetal Termination Class Code » *T' 
tfNKA TSSR Bits Set: *T' 
#N*A TSSR Contents Are Ambiguous' 



11,2$, 3$, 4$, 5*. 6$, 7$, 8$ 

'Normal Termination' 
'Termination Condition' 
'Tape Status Alert' 
'Function Reject' 
'Recoverable Error - 
'Recoverable Error - 
'Unrecoverable Error' 
'Fatal Controller Error' 



Tape Position One Record Down' 
Tape Was Not Moved' 



It, 21. 3$, 41 

'Internal Diagnostic Failure' 

'Reserved' 

•Bus Interface or Sanity Check Error' 

■ Reserved' 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



i ♦ 



{THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A COMMAND PACKET, 
j THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE, 



; 



INPUT j 



{ 


RO 


J 


R3 


I 


R4 


I 




I 


NO 


I - 





NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 

R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18:55 
PRIPKT - PRINT THE ADDRESS/CONTENTS OF CONIAND PACKET 



L^ 



o 



SEQ 037 



822 


007260 






823 


007260 






824 


007264 


010005 




625 


007266 


005737 


003126 


826 


007272 


001001 




827 


007274 


005003 




828 


007276 


010301 




829 


007300 


010400 




830 


007302 


006100 




831 


007304 


006101 




832 


007306 








007 306 


010446 






007310 


010146 






007312 


012746 


007444 




007316 


012746 


C00003 




007322 


010600 






007324 


104414 






007326 


062706 


000010 


833 


007332 


010300 




834 


007334 


001404 




835 


007336 


010401 




836 


007T40 


004737 


017210 


837 


007344 


010004 




838 


007346 


005001 




839 


007350 


012402 




840 


007352 








007352 


010246 






007354 


010146 






007356 


012746 


007406 




007362 


012746 


000003 




007366 


010600 






007370 


104414 






007372 


062706 


000010 


841 


007376 


005201 




842 


007400 


020105 




843 


007402 


00276 2 




644 


007404 


000207 




845 








846 


007406 


045 


116 


847 


0C7444 


045 


116 


848 








849 








850 








851 








852 








853 








854 








055 








856 








8S" 7 








858 








859 








860 








861 








862 








863 








864 









PRIPKT: 


• 
*3AVREG 






MCV 


R0.R5 




Tsr 


KT ENABLE 




BNE 


10$ 




CLR 


R3 


10$: 


MOV 


R3.R1 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




PRINTB 


*PKTADD,R1,R4 




MOV 


R4.-CSP) 




MOV 


Rl.-CSP) 




MOV 


OPKTADD.-CSP) 




MOV 


♦3,-CSP) 




MOV 


SP,RO 




TRAP 


C$PNTB 




ADO 


010, SP 


15$: 


MOV 


R3.R0 




BEQ 


20$ 




MOV 


R4.R1 




JSR 


PC.SETMAP 




MOV 


R0,R4 


20$: 


CLR 


Rl 


25$: 


MOV 


CR4)*,R2 




PRINTB 


0PKTFRM.R1.R2 




MOV 


R2,-CSP) 




MOV 


Rl.-CSP) 




MOV 


*PKTFRM,-(SP) 




MOV 


03,-CSP) 




MOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


010, SP 




INC 


Rl 




CMP 


R1,R5 




BLT 


25$ 




RTS 


PC 



j SAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

I ABOVE 28K UNDER TEST? 

jBR IF YES 

{SET HIGH ORDER ADDRESS TO 

j COPY HIGH ORDER ADDRESS 

{GET LOWER ADDRESS 

jSHIFT BIT 15 INTO C BIT 

j AND INTO HIGH ORDER. 

j PRINT PACKET ADDRESS 



j GET HIGH ORDER ADDRESS 
j BR IF NOT ABOVE 28K. 
{GET LOW ORDER ADDRESS 
l SETUP PAR6 MAPPING FOR 18 
{GET RETURNED PAR6 ADDRESS 
j SAVE WORD NUMBER 
j GET PACKET CONTENTS 
{PRINT THE DATA 



BIT ADDRESS 
BIAS 



{NEXT WORD NUMBER 
{DONE ALL PACKET WORDS? 
{LOOP TILL ALL DONE 
{RETURN 



045 PKTFRM: .A5CIZ 
045 PKTADD: .ASCIZ 
• EVEN 



'*N*A Packet Word tf*Dl*A - #06 
**N*A Packet Address =■ K01K05* 



.SBTTL PRIBXOR • PRINT EXPD, RECV AND XOR BYTE 



{PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
{THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



{INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



{OUTPUT: 



M3 



TSV3 - GLOBAL AREAS 
PRIBXOR - PRINT EXPO, 



865 
8GC 
667 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 



MACRO M1113 
RECV AND XOR BY 



tt 



-FEB-84 18;55 



SEQ 038 



878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 



007502 
007502 
007506 
007510 
007520 
007524 
007526 
007530 
007532 
007532 
007534 
007536 
007540 
007544 
007550 
007552 
007554 
007560 
007562 

007564 



007632 
00763J 

007636 
007640 
007650 
007650 
007652 
007654 
007656 
007662 
007666 



010203 

012700 
040001 
040002 
04000? 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 



010203 



010346 
010146 
010246 
012746 
012746 
010600 



RO 



XOR OF EXPECTED/RECEIVED DATA 



5 

• — 



177400 



007564 
000004 



000012 



PRIBXOR;: 

SAVREG 

MOV 

XOR 

MOV 

SIC 

BIC 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

RTS 



I SAVE THE 

I EXPECTED 

jFORM THE 

tBYTE 

{SAVE 

{SAVE 

{SAVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BYTE EXPO 
LOW BYTE XOR 



R2.R3 

Rl t R3 

OtC<377>,RO 

R0.R1 

R0.R2 

R0,R3 _. ._ ..„.. 

0X0RBF0R,R2,R1,R3 j PRINT THE MESSAGE 

R3.-CSP) 

Rl.-CSP) 

R2.-CSP) 

0XORBFOR»-CSP) 

04,-CSP) 

SP.RO 

C*PNTB 

012, SP 

R3.R0 

PC 



OR 



jRO HAS XOR ON RETURN 
; RETURN TO CALLER 



116 



045 XORBFOR; 



.EVEN 



.ASCIZ »*Ni*A EXPD; *03*A RECV; *03¥A XOR; *03 



.SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INK j"S. 



OUTf-Ji 



Rl 
R2 



RO 



Pr-CtTVED DATA 
EXPEL'ED DATA 



XOR I, 1 TVPEC ••D/RECEJ.VEf 'jATA 



007702 
000004 



PRIXOR;; 




savh,.: 


;',«». *" HC-. TP >Tr 


MOV 


h. • ?EXPECit^ "Mk 


XOR 


R1,R3 |TpRM THE E.Xw 


PRINTB 


OXORrOR,R2,Rl,Ro jPRINT THE MESSf 


MOV 


R3.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R2,-CSP) 


MOV 


OXORFOR.-CSP) 


MOV 


04,-CSP) 


MOV 


SP.RO 



N3 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18;55 
PRIXOR - PRINT EXPD, RECV AND XOR 



SEQ 039 



908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

92] 

922 

923 

924 

925 

926 

927 

926 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

94 7 

948 



007670 
007672 
007676 
007700 

007702 



949 
950 
951 
S52 
953 
954 
955 
956 



007750 
007750 
007754 



007756 
007 756 
007762 
007762 
CO 7764 
007770 
007774 
007776 
010000 
010004 

010006 



104414 

062706 000012 

010300 

000207 



TRAP 
ADD 
MOV 
RTS 



C$PNTB 
VH2.SP 
R3.R0 
PC 



iRO HAS XOR ON RETURN 
j RETURN TO CALLER 



045 



116 



045 XORFOR: 



.ASCIZ 
.EVEN 



»*N*A EXPDj *06tfA RECV? *06*A XOR; *06' 
.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES TO ASCII iMO PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A *"<!.■ «T ROUTINE 



INPUTS: 



RO 
Rl 



OCTAL VALUE TO CONCERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PRIEQU: 



OG0207 



SAVREG 
RTS PC 



{SAVE THE REGISTERS 
j RETURN ,0 CALLER 



.SBUL PR1RAM - PRINT RAM ADDRESS 



j PRINT CONTROLLER RAM ADDRESS. 

;THIS POUTINE 1j NORMALLY CALLED ONLY FROM PRINT ROUTINES 

i 



INPUTS: 



010446 

012746 010006 

012746 000002 

010600 

104414 

062706 000006 

000207 



045 



116 



045 



R4 



PRIRAMj 

SAVREG 

PRINTS 

MOV 

MCV 

MOV 

MOV 

TRAP 

ADD 

RTS 

RAMFORj .ASCIZ 
.EVEN 



RAM ADDRESS 



0RAMFOR.R4 

R4.-CSP) 

GRAMfOR, -CSP) 

02, -CSPj 

SP.RO 

C*PNTB 

*6,SP 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 
{PRINT RAM ADDRESS IN ERROR 



{RETURN 



KNKA CONTROLLER RAM ADDRESS » i*06 



.SBUL PRIADD - PRINT MLMORY ERROR ADDRESS 



B4 



TSV3 
PRIADD 

957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 



GLOBAL AREAS 
- PRINT MEMORY 



975 
976 
977 
978 
9 79 
980 
181 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 

1000 



010050 
010050 
010054 
010060 
010064 
010066 
010070 
010072 
010072 
010074 
010076 
010102 
010106 
010110 
010112 
010116 

010120 



010164 
010164 
010170 
010174 



010200 
010200 
010?02 
010P06 
01C212 
010214 

010216 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



MACRO M1U3 
ERROR ADDRESS 



01-FE8-84 16:55 



SEU 040 



013702 
013701 



0X0146 
012746 
012746 
010600 
104414 
062 7Q6 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 

IMPLICIT INPUTS 



PRIADD: 



0022:30' 
002232' 



010120' 
000003 



000010 
116 



045 PRIAOj 



ERRHI 


• HIGH ORDER 


ERRLO 


- LOW ORDER 


SAVREG 




MOV 


ERRHI, RO 


MOV 


ERRLO. Rl 


MOV 


R1.R2 


ROL 


Rl 


ROL 


RO 


PRINTS 


♦PRIAO.R0.R2 


MOV 


R2.-CSP) 


MOV 


RO.-CSP) 


MOV 


♦PRIA0.C5P) 


MOV 


#3.-(bP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


rOO 


♦10.SP 


RTS 


PC 


.ASCIZ 


•*N*A MEMORY 


♦ EVEN 





iSAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH ADDRESSS 

iGET LOW ADDRESS 

I COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

l SHIFT INTO HIGH ORDER 

I PRINT MEMORY ADDRESS IN ERROR 



I RE TURN 
ERROR ADDRESS - #01*05' 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADORESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



ERRHI 

ERRLO 



HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITAPDi 



002230 
002232 



010246' 
000002 



GOOOQfe 



SAVREG 
MOV 
MOV 
i MOV 
I ROL 
I ROL 
PRINTB 
MOV 
MOV 
MOV 
MOV 
TRAP 

ADD 



ERRHI. R2 

ERRLO. Rl 

Ri,R2 

Rl 

RO 

♦PRIT0.R1 

Rl.-CSP) 

♦PRITO.-(SP) 

*2, (SPj 

SP.RO 

OPNT& 

*$tSP 



iSAVE R1-R5 UNTIL NEXT RETURN 

iGET HIGH ADORESSS 

I GET LOW ADDRESS 

I COPY LOW ADORESS 

iSHlFT BIT 15 TO C BIT 

1 SHIFT INTO HIGH ORDER 

j PRINT MEMORY ADDRESS LOW IN ERROR 



PRITADD -PRINT MEMORY TEST ADORE^i 



C4 



1001 



1002 
1003 
1004 
1005 
1006 
1007 

looe 

1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
10L7 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 



010222 
010222 
G 10224 
010230 
010234 
010236 
010240 
010244 

010246 
010311 



010356 
010356 
010362 
010370 
010376 
010400 
010402 
Q10406 



010246 
012 J46 
012746 
010600 
104414 
062706 
000207 

045 
045 



010311 
000002 



000006 



01F6B-84 18t55 



PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RT5 



SEQ 041 



♦PRITI.R2 

R2.-CSP) 

•PRITl.-(SP) 

♦2,-(SP) 

SP,RO 

CIPNT3 

♦6.SP 

PC 



iPRINT MEMORY ADDRESS HIGH IN ERROR 



i RE TURN 



116 
116 



045 
045 



PRITO: 
PRITlj 



.ASCIZ 
♦ASCI* 

.EVEN 



vN*A 
#N#A 



MEMORY 
MEMORY 



TEST 
TEST 



ADDRESS 

ADDRESS 



LOW < 
HIGH 



*06' 
■ 406 



♦SBTTL SPACE 



SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 



INPUT; 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 • I IS REVERSE 

FinST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT: 



CARflY SET - SPACE RECORDS COffiANO OK 
CLR SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 



i - 



SPACE? 



012737 
012737 
005703 
100403 

010337 
000407 



0O0764 
140010 



QIQ542 1 



010550 
01054Q 



SAVREG 




MOV 


*500. .SDELAY 


MOV 


♦140010,80* 


TST 


R3 


BMI 


51 


MOV 


R3.9Q* 


BR 


101 



i SAVE THE GENERAL REGISTERS 

jSET UP DELAY 

I SET U* COMMAND. SPACE FORWARD 

, CHECK FOR DIRECTION 

iBR. IF REVERSE INDICATED 

» LOAD UP NUM8ER QF RECORDS TQ SPACE 

l GO 00 COMMAND 



TSV3 - GLOBAL areas 
SPACE - SPACE RECORDS 



MACRO M1113 
(FORWARD AND 



Ol-FEB-84 18,55 

REVERSE) COMMAND 



D4 



SEQ 042 



1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 



1060 

106 X 

iw.i 

i vl. / 
J.Ot'.'J 

:.d?o 

1071 
10*2 

iOYS 
1074 

1075 
1076 

1077 
1078 
:07Q 

ioai 

1083 
1004 
1085 
1086 
1087 
10H8 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 



010410 
010414 
010420 
010426 
010432 
010436 
010442 
010444 
010444 
010450 
010452 
010456 
010460 
010464 
010466 
010472 
010474 
010500 
010502 
010504 
010510 
010514 
OK Uo 
C 10520 
010522 
010524 
010526 
010530 
010530 
010532 



01054c 
010544 
010546 
010550 



042703 
010337 
052737 
012704 
010465 
004737 
103420 

C12727 
000000 
013727 
000000 
005367 
031375 
005367 
001367 
005337 
001356 
0OO411 
016501 
012702 
020201 
001401 
000402 
000261 
000401 
000241 

010400 

000207 



010534 



010540 000000 



ooeooo 
oooooo 
oooooo 
oooooo 



100000 5$: 

010542' 

000400 010540' 

010540' 10$: 

OOOOOO 

016140' 15$: 



000250 
002116 
17^772 
177756 

010550' 



000002 
000200 



20$; 
25$: 

40$: 

60$: 
70$: 



BIC 

MOV 

BIS 

MOV 

MOV 

JSR 

BC5 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

BR 

MOV 

MOV 

CMP 

BEG 

BR 

SEC 

BR 

CLC 

MOV 
RTS 



<9IT15,R3 

R3.90I 

*8IT8,80$ 

*80$,R4 

R4,TSDB(R5) 

PC.UAITF 

20$ 

250 

0250, (PC)* 



L$DLY,(PC)* 



-6CPC) 

.-4 

-22(PC) 

.-20 

SDELAY 

15$ 

60$ 

TSSR(R5),R1 

*SSR,R2 

R2.R1 

40$ 

60$ 

70$ 



R4.R0 
PC 



tCLEAR DIRECTION BIT 
I LOAD UP NUMBER OF RECORDS TO SPACE 
l SET REVERSE BIT IN COMMANO PACKET 
I SET UP R4 WITH PACKET ADDRESS 
I SEND OUT COMMAND 
I WAIT FOR SSR 
i BR. IF SSR IS SET AND OK 
jDELAY ABOUT ,25 SECONDS 



I BUMP DELAY COUNTER DOWN 

» BR, IF MORE DELAY 

I BR IF TROUBLE CARRY • CLEAR 

I READ TSSR 

j SET UP EXPECTED 

l ARE THEY OK 

iBR, IF EQUAL - OK 

i TROUBLE EXIT 

i SET CARRY NO TROUBLE 

lEXIT 

1 CARRY CLEAR - ERROR 



j PASS PACKET 
l RETURN 



ADDRESS 



j PACKET FOR SPACE COMMANO 

i 

.BLKB 10-<.-TSV267> 

j COMMAND WORD 
80$: .WORD 
iNUhBER OF RECORDS TO BE SPACED OVER WORD 



90$: 



SDELAY: 



.WORD 
.WORD 
.WORD 
.WORD 
.EVEN 



l DELAY COUNTER 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



i ♦ 

.ROUTINE 
j COMMAND 

! INPUT j 



TO ISSUE A WRITE CHARACTERISTICS 

SO THAT OTHER COMMANDS WILL EE ACCEPTEO 



E4 



TSV3 GLOBAL AREAS MACRO M1113 01-FEB-84 18j55 
WRTCHR • WRITE CHARACTERISTICS COMMAND 



SEQ 043 



1103 
1104 

1105 
1106 
1107 

lioa 

11 09 
1110 
illl 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
.1127 
1128 
l.\29 
1150 
1131 
1132 
113.3 
11M 
1133 
1136 

in? 

1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1)49 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1 157 
1158 
1159 



010552 
010552 
010556 
010562 
010566 
010572 
010576 
010600 
010602 
010606 
010612 
010616 
010620 
010624 
010626 
010630 
01067-2 
010656 
010640 
010646 
010650 
010654 
010654 
010662 
010664 
OJ0670 
0106/0 
010672 
010674 
010676 
010702 



005037 
005037 
010465 
004737 
107401 
000435 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000421 
062704 
011403 
032763 
001402 
005237 

032763 
001402 
005237 

000261 
000401 
000241 
016500 
000207 



M ADDRESS OF PACKET FROM -EST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT? 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



UP 



MESSAGE BUFFER AND OTHER BUFFERS ALL SE1 

SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA • EXTENDED FEATURES PRESENT 
BENBSW ■ BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



002222' 
002220 
000000 
016226 



000002 
000200 
000100 

000100 



000010 

000200 000012 

002220' 

000100 000012 

002222' 

000002 



WRTCHR: 



10$ 



20$ 



25$ 



40$ 



45$ 



50$ 



60$ 

70$ 



SAVREG 

CLR 

CLR 

MOV 

JSR 

BCS 

BR 

MOV 

MOV 

BIT 

BEQ 

BIS 

CMf 1 

BEQ 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 
TNC 

SEC 

BR 

CLC 

MOV 

RTS 



BENBSW 

EXTFEA 

R4.TSDBCR5) 

PC.CHKTSSR 

20$ 

60$ 

TSSR(RS),R1 

*SSR,R2 

♦0FL.R1 

25$ 

*0FL,R2 

R2.RI 

40$ 

60$ 

08..R4 

(R4).R3 

♦X2.eXTF t X;iT2(R3) 

45$ 

EXTFEA 



j SAVE THE GENERAL REGISTERS 
j CLEAR BUFFER ENABLE SWITCH 

jCLEAR EXTENDED FEATURES SW SWITCH 

tSENO OUT COMMAND 

iWAIT FW SSR 

iBR, IF SSR IS SET ANO OK 

:0R IF TROUBLE CARRY - CLEAR 

I READ TSSR 

tSET UP EXPECTED 

j WAS OFF LINE SET IN TSSR 

iBR, IF NO OFL SET 

I MAKE THEM LOOK ALIKE 

»ARE THEY OK 

I BR, IF EQUAL ■ OK 

» TROUBLE EXIT 

I POINT TO WRT CHARA DATA PACKET 

j GET ADDRESS OF MESSAGE BUFFER 

(EXTENDED FEATURES BIT SET? 

I BR IF NO 

I SET EXTENDED FEATURES SW SWITCH 



aX2.BUFE t XST2(R3) 

50$ 

BENBSW 



70$ 

TSSR(R5),R0 
PC 



iBUFFER ENABLE SWITCH SET 
iBR, IF SWITCH NOT SET 
I SET SOFTWARE SWITCH FOR ENABLED 

i SET CARRY NO TROUBLE 

lEXIT 

i CARRY CLEAR - ERROR 

I RETURN TSSR CONTENTS 

I RE TURN 



♦SBTTL REWIND 



POSITION TAPE (REWIND) COMMAND 



F4 



TSV3 - GLOBAL AREAS 
REWIND - POSITION TAPi: 



1160 
1161 
1162 
1165 
1164 
1165 
11.66 
116" 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
13 76 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1139 
1190 
1191 
1192 
1193 
1194 



1195 
1196 
1197 
.1198 
1199 
12C0 
•201 
1203 
1205 
1206 
1207 

1206 
1209 
1210 



010704 
010704 
010710 
010714 
010 720 
010724 
010730 
010732 
010732 
010736 
010740 
010744 
010746 
010752 
010754 
010760 
010762 
010764 
010766 
010770 
010772 



010774 
011000 
011000 
011002 



012704 
010465 
012703 
004737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



MACRO hlll3 
(REWIND) COMM 



01- FEB -04 



WD 



16 s 55 



SEQ 044 



THIS ROUTINE WILL REWIND THE SELECTED TAPE, 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CAL'.ER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE: 

DO A SOFT INIT 

DC A WRITE CHARACTERISTICS 

JSR PC, REWIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



011000' 
000000 
000550 
016140' 



0OC~>72 
002110' 
177772 
177756 



REWIND: 


» 

* SAVREG 






MOV 


0RWPACK.R4 




MOV 


R4,TSDB(R5) 




MOV 


«360. ,R3 


10$: 


JSR 


PCWAITF 




DCS 


20$ 




DELAY 


250. 




MOV 


0250., (PC)* 




.WORD 







MOV 


L$DLY,(PC>* 




.WORD 







DEC 


-6CPC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


.-20 




DEC 


R3 




BNF 


10$ 




CLC 




20$ j 


MOV 


R4.R0 




RTS 


PC 




. BLKB 


10-<,-TSV2£ 


RWPACK: 








.WORD 


102010 




.WORD 






j SAVE R1-R5 
l GET PACKET 



UNTIL NEXT 
ADDRESS 



RETURN 



l GET PACKET ADDRESS 

jSENO PACKET ADORESS TO EXECUTE 

j ENOUGH TIME FOR 2400» REEL TO 

jWAIT FOR SSR TO SET 

i LEAVE WHEN SSR IS SET 

j WAIT FOR ,25 SECONDS 



REWIND 



iBLIHP COUNTER DOWN 
jKEEP GOING 

jCLEAR CARRY TO SET ERROR 
jPASS THE PACKET ADDRESS 
I RETURN 



l POST ION COMMAND (REWIND) 
j NOT USED 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



G4 



TSVS - GLOBAL AREAS .1ACRO M1113 
CKR.*M - COMPARE RAM TO I/O PACKET 

I'm 
in? 

;213 

'.?14 

1216 
)?.'? 
».218 
IP 19 
\220 

;22i 
:\22? 

5.223 

:>224 

1225 
:.?26 
;227 
' 226 
>2?9 
-.2 JO 
l?3l 
1-.232 

J. £34 
Jt?5 

;e37 

2 238 
X239 

1240 

i241 
!.£42 
.•243 

' r>44 

:245 

1 i46 



01-KE8-84 3.6 {55 



SEQ 045 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET, 



INPUT: 



R4 
R5 



OUTPUT; 



CARRY 



ADDRESS OF TKE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



1248 

:\ P. 50 
5 251 

:.?5?. 

;:«>.>'♦ 

-. ':ss 
:.2r>f 

.'.257 
1258 
1.259 

;; ,»60 
1261 

3 263 
12t>4 
:.2fD 
..766 
126 V 



01 '.004 

011004 
011010 
011014 
011020 
011022 
011026 
C11034 
011040 
011044 
011050 
011054 
011056 
011060 
011062 
011064 
011070 
011072 
011074 
011076 
011100 
011102 
011104 
011112 



CKRAM:; 



012701 
012702 
005003 
004737 
112765 
00473' 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



002234- 
000201 

016226' 

000000 

016226 

000000 

016226 

000000 



000210 



000000 



000010 002274 



SAVE THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT NEXT RAM ADDRESS 

WAIT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED ENO YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW EtfROR 

AND EXIT 

SHOW GOOD COMPARE 
{SETUP RAMSIZ FOR PRAMPKT ROUTINE 
{RETURN 



.SBTTL CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 





SAVREG 






MOV 


♦RAMDATA.Rl 




MOV 


*RMPKTBEG.R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


*0,TSDB(R5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2.TSD8CR5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBACR5).CR1) 




CMPB 


(R1)»,(R4)* 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




CMP 


R2.*RMPKTfcND 




BLE 


10$ 




TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$: 


SEC 




50$: 


MOV 


08.. RAMSIZ 




RTS 


PC 



H4 



TSV-V - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18 ; 55 
CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 046 



\r.ro 

1271 
1£72 
1273 

1274 

1275 
1276 

j;y7? 

1278 

i«? 79 

1280 

•\?i)X 

1 283 
1* J 34 

J 285 
3 206 
1287 

;288 
3.r»»9 

1290 
1291 
1292 
1293 

1294 
1295 
1296 
1297 
1298 
129 9 
1300 

:.5oi 

1302 
V3G3 
130* 
1305 
1306 
1307 
13'J8 
1.309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
2319 
1 <20 
1321 
1322 
132? 
U24 



011111 
011114 
011120 
011124 
011130 
011132 
011136 
011144 
011150 
011154 
011160 
011164 
011166 
011170 
011172 
011174 
011202 
011206 
011210 
011216 
011222 
011224 
011226 
0J1232 
011234 
011236 
011240 
011242 
011244 
011246 



012701 
012702 
005003 
004737 
112765 
004737 
010265 
004737 
116511 
122124 
001401 
005203 
005202 
012737 
005737 
001407 
012737 
020227 
003750 
000403 
020227 
003744 
005703 
001402 
000241 
000401 
000261 
000-207 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIj DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



OUTPUT; 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10 FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



002234' 
000167 

016226' 

000000 

016226' 

000000 

016226' 

000000 



000010 
002220 

000012 
000200 



000176 



000000 



002274 



002274 



CKRAM2: 


SAVREG 






MOV 


ORAM0ATA.R1 




MOV 


*RMCHBEG,R2 




CLR 


R3 




JSR 


PC.CHKTSSR 




MOVB 


G0.TSDBCR5) 


10$: 


JSR 


PC.CHKTSSR 




MOV 


R2.TSDBCR5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBA(R5).(R1) 




CMPB 


(Rl)*,CR4)* 




BEQ 


20$ 




INC 


R3 


20$s 


INC 


R2 




MOV 


08., RAMSIZ 




TST 


FXTFEA 




BEQ 


25$ 




MOV 


010. , RAMSIZ 




CMP 


R2,*RMCHEND 




BlE 


10$ 




BR 


27* 


25$: 


CMP 


R2.0RMCHEND-2 




BLE 


10$ 


27$t 


TST 


R3 




BEQ 


30$ 




CLC 






BR 


50$ 


30$; 


SEC 




501s 


RTS 


PC 



SAV^! THE GENERAL REGISTERS 

ADDRESS TO SAVE THE RAM DATA 

BYTE ADDRESS OF FIRST RAM DATA 

CLEAR THE ERROR FLAG 

WAIT FOR SSR 

SET MAINTENANCE MODE 

WAIT FOR SSR TO SET 

SELECT lsk£XT RAM AODRESS 

W4IT FOR SSR TO SET 

READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

ASSUME EXTFEA NOT SET 

IS THE SOFTWARE EXTENDED FEATURES SET 

BR, IF NOT *ET 

SET RAMSIZ FOR EXTEND FEATURES 

AT FND OF EXTENDED BUFFER 

BR, IF NOT AT ENO YET 

AT ENO BRANCH 

REACHED ENO YET ? 

BRANCH TILL ^LL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NOT 

CLEAR CARRY TO SHOW TERROR 

AND EXIT 

SHOW GOOD COMPARE 

RETURN 



14 



TSV3 GLOBAL AREAS MACRO MU13 Ol-FEB-84 18:55 
LKH5G - COMPARE WRITE CHAR. MESSAGE BUFFERS 



SEQ 047 



13^5 



:.5?6 








1327 








3 32ft 








1329 








1330 








'.331 








5^3? 








1a33 








i33< 








?.335 








1336 








1337 








1338 








13£°» 








.1340 








13*1 








1342 








1343 








1344 








1345 








1346 








1347 








3 348 








1 549 








1350 


011250 






1351 


011250 






13^2 


011254 


010037 


002276' 


i3.;> 


011260 


010137 


002300' 


1354 


011264 


005737 


003126' 


V355 


011270 


001403 




1356 


0^1272 


004737 


017210* 


1357 


011276 


010001 




133a 


011300 


005004 




1.VS4 


011302 


005003 




l;i60 


011304 


010205 




1361 


C11306 


011264 


002314' 


IS 02 


011312 


011164 


002460' 


.^ 36 S 


011316 


022221 




5 3S4 


011320 


001401 




.1.365 


011322 


005203 




1 366 


011324 


062704 


000002 


1 36 / 


011330 


0204.? 7 


00001.4 


1368 


011334 


003764 




"1569 


011336 


032765 


000200 000012 


13 70 


011344 


001403 




13/1 


011346 


020427 


000016 


137;? 


011352 


003755 




L37S 


011354 


005703 




1374 


011356 


001402 




1375 


011360 


000241 




1376 


011362 


000401 




137' 


0113C4 


000261 




1 3 /a 


011366 


000207 




1 3 79 








1 360 








1381 









.SBTTL CKMSG - COMPARE WRITE CHAR, MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT ; 



OUTPUT; 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUfFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPD DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG:: 



10$: 



15*: 



25$: 



50$: 



55$: 
60$: 



SAVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADO 

CMP 

BLE 

BIT 

BEQ 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO. RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PCSETMAP 

R0.R1 

R4 

R3 

R2 R 5 * 

CR2)".EXPMSG(R4) 

(RD.RECMSGCR4) 

CR2)».CR1)» 

2*$ 

R3 

*2.R4 

R4,#14 

15$ 

OX2,EXTF,XST2(R5 

50$ 

R4.016 

15$ 

R3 

55$ 

60$ 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADDRESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 
GET RETURNED ADDRESS BIASED TO PAR6 
WORD IN BUFFER 
CLEAR ERROR SEEN FLAG 
GET EXPD BUFFER ADDRESS 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPD EQUAL RECV? 
BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 
)iIS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 



,SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



J4 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18? 55 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 04Q 



13G2 








13fl T 








1*84 








1385 








1386 








1387 








1:<8U 








1*69 








1;*»90 








139, 








1591' 








1303 








'.:wi 








:..'69 r i 








US'* 








15^7 








J39u 








l?v? 








1400 








1\0). 








3 '402 








.140? 








j404 








140S 








1<U* 








14 U 7 








140.', 


0.1.1 370 






.MO ■» 


Oii370 






— s 


011374 


020327 


000144 


' .11 


011400 


003412 




1412 


011402 


012703 


000144 


.413 


011406 








011406 


012746 


011522' 




011412 


012746 


000001 




011416 


010600 






011420 


104417 






011422 


062706 


000004 


1414 


011426 


010037 


002276' 


1415 


011432 


010137 


002300' 


1416 


011436 


005737 


003126' 


1417 


011442 


001403 




1418 


011444 


004 737 


017210* 


1419 


011450 


oiooci 




1420 


011452 


005004 




1421 


011454 


005005 




1422 


011456 


111264 


002314' 


1423 


011462 


111164 


002460' 


1424 


011466 


122221 




1425 


011470 


001401 




1426 


011472 


0052C5 




1427 


011474 


062704 


000001 


1428 


011500 


020403 




1429 


011502 


002001 




1430 


011504 


000764 




1431 


011506 


005705 




1432 


011510 


001402 




1433 


011512 


000241 





ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES, 



INPUT 5 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT? 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR - MESSAGE BUFFERS DON' T MATCH 



IMPLICIT OUTPUT; 



CKMSG2: 



5$ 



lOi 
15$ 



25$ 



50$ 



BUFFER IS SFT TO EXPO DATA 
RECMSG BUFFER IS SET TO RECV DATA 

RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 



SAVREG j SAVE R1-R5 UNTIL NEXT RETURN 

CMP R3. ^RECMSG -EXPMSG i SSO IS COUNT ABOVE MAX ALLOWED? 

BLF 5$ i WO BR IF NO 

MOV *RECMSG .EXPMSG,R3i<WD 

PRINTF OOEBUGMSG j880 

MOV *0*;BUGMSG t -(SP) 

MOV ftl.-(SP) 

MOV f»P,RO 

TRAP C$PMf 

AOO *4,SP 

MOV RO, RCVHIADD 

MOV Rl.RCVLUAD 

TST K TENABLE 

BEQ 101 

jsr PC.se.niAP 

MOV R0.R1 

CLR R4 

CLR R5 

MOVB CR2),cXPMSG(R4) 

MOVB <*n),RECMSGCft4) 

CMPB (R2)*,CR1)* 

BEQ 25$ 

INC R5 

ADD 01.R4 

CMP R4,R3 

BGE 50$ 

BR 15$ 

TST R5 

BEQ 55$ 

CLC 



SAVE RECV HIGH A0DRES3 

SAVE RECV LOW ADDRESS 

TESTING ABOVE ?.1K? 

BR IF NO 

RE. URN ADDRESS BIASfcD TO PAR6 IN RO 

GET RETURNED ADDRESS 3IA5E0 TO PAR6 

WORD IN BUFFER 

CLEAR ERROR SEEN FLAG 

bAVE EXPO FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

EXPO EQUAL RECV? 

BR IF YES 

SET ERROR SEEN FLAG 

POINT TO NEXT BYTE 

DONE ALL BYTES? 

BR IF YES 

DO NEXT BYTE 

ANY ERRORS SEEN? 

Bi"' IF NO 

SET FAILURE 



I<4 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 18:55 
CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 049 



1434 

1435 
1436 
1437 
143C 
1439 
144) 

1*41 
1442 

1445 
1444 
',445 
1446 
144 • 
1448 
144<. 
3450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1456 
1459 
1460 

1461 
1462 
1463 



1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
14 74 
14 75 
1476 

147 / 

1478 
1479 
1480 



1481 
1482 
1483 
1484 



011514 
011516 
011520 

011522 
011612 
011623 
011656 
011711 



011724 
011724 
011724 
011730 
011734 
011734 
011734 



011736 
011736 
011736 
01 i 742 

Oil -'46 
011752 
011752 
011752 



000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



004737 
004737 



104423 



005632' 
017074' 



004737 
012700 
004737 



104423 



005632' 

000004 

007260' 



BR 
55$: SEC 
60$: RTS 

DEBUGMSG: 
FERCMj .ASCII 



60$ 
PC 



j SET SUCCESS 
j RETURN 



ERCM: 
SIMSG: 



.ASCIZ 
.ASCIZ 



TINERR: .ASCIZ 
■ EVEN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-' j 330 
/*N*A ***/ 

/ TSSR ERROR CODE REC'D « ' 

/ AFTER DOING SOFT INIT 

/TEST: ,.,/ 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

PI CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG:: 



BGNMSG SFIMSG 



L10003: 



JSR 
JSR 
ENDMSG 

TRAP 



PC.PRITSSR 
PCCKDROP 



C$MSG 



j PRINT CONTENTS OF TSSR REGISTER 
j DROP UNIT, IF ALLOWED 



PRINT ROUTINE TO PRINT THE CONTENTS OF 

TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET, 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



BGNMSG PKTSSR 



PKTSSR:: 




JSR 


PC.PRITSSR 


MOV 


04 t H0 


JSR 


PC.PRIPKT 


ENOMSG 




L 10004: 





j PRINT THE CONTENTS OF TSSR REGISTER 

iNO. OF WORDS IN PACKET 

j PRINT THE CONTENTS OF COMMAND PACKET 



TRAP 



C*MSG 



iPRINl ROUTINE TO PRINT THE CONTENTS OF 
{TSSR AND A GET STATUS COMMAND PACKET, 



L4 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 16:55 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



SEQ 050 



1485 
1486 
1487 
I486 
1489 
1490 
1491 
1492 
1493 

1494 
1495 
1496 
149/ 



1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 



1512 
1513 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 
1529 
1530 
1531 
1532 



011754 
011754 
011754 
011700 
011764 
011770 
011770 
011770 



011772 
011772 
011772 
011776 
011776 
011776 



012000 
012000 
012000 
012004 
012006 
012010 
012014 
012014 
012014 



INPUTS: 



004737 005632' 
012700 000002 
004737 007260' 



104423 



Rl 
R4 



BGNMSG 

PKTGETS: : 

JSR 
MOV 
JSR 
ENDMSG 

L 10005: 

TRAP 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTGETS 

PCPRITSSR 
02, RO 
PC»PRIPKT 



C$MSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
j NO. OF" WORDS IN GET STATUS PACKET 
I PRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 005632' 



104423 



SFFMSG}} 



L10006; 



BGNMSG SFFMSG 

JSR PCPRITSSR 
ENOMSG 

TRAP C*MSG 



{PRINT CONTENTS OF TSSR REGISTER 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS; 



Rl CONTENTS OF TSSR 

R? LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE? R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



BGNMSG PKTMES 



004737 005632' 

010200 

010301 

004737 014132' 



104423 



PKTMES} j 




JSR 


PCPRITSSR 


MOV 


R2.R0 


MOV 


P3.R1 


JSR 


PC.PRMESS 


ENDMSG 




L10007: 





jPRINT CONTENTS OF TSSR 
iLOW ORDER ADDRESS 
{HIGH ORDER ADDRESS 
jPRINT THE MESSAGE BUFFER 



TRAP 



CSMSG 



M4 



TSV3 - GLOBAL AREA 
PKTMES 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 



-..- x MACRO M1113 Ql-FEB-84 18:55 

PRINT TS§R AND MESSAGE BUFFER 



SEQ 051 



1548 
1549 
1550 
1551 



1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 

1567 
1568 
1569 
1570 
1571 
1572 



1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 



012016 
012016 
012016 
C12022 
012026 
012032 
012032 
012032 



012034 
012034 
012034 
012040 
012044 
012046 
012052 
012056 
012056 
012056 



004737 010164' 
016501 000002 
004 737 005632 



104423 



012700 00000 7 

005737 002220' 
001402 

012700 000010 

004737 014442' 



104423 



.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 

j'pRINT ROUTINE TO PRINT THE CONTENTS OF 
5 TSSR AND A MEMORY TEST ADDRESS 



INPUTS; 



R5 FIRST DEVICE UNIBUS ADORESS 
ERRHI HIGH ORDEU MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



ADDSSR: 



L 10010: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENDMSG 

TRAP 



PC.PRITADD 

TSSRCR5),R1 

PC.PRITSSR 



C$MSG 



j PRINT MEMORY TEST ADDRESS 

{GET CURRENT TSSR 

j PRINT THE CONTENTS OF TSSR REGISTER 



.SBTTL MSGEXP - PRINT WRITE CHAR, EXPD-RECV MESSAGE BUFFERS 
J ♦ 

;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

1 IMPLICIT INPUTS? 

; FXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



MSGEXP: 


• 






MOV 


07, RO 




TST 


EXTFEA 




BEQ 


5$ 




MOV 


08. ,R0 


5$: 


JSR 
ENDMSG 


PCPRMSGEXP 


L10011: 







j ASSUME NO EXT FEATURES 

lEXT FEATURES SET? 

j BR IF NO 

;EXT FEATURE BUFFER IS 8 WORDS 

; PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C$MSG 



.SBTTL FIFEXP - PRINT FIFO EXP/rtECV DATA 

J ♦ 

{PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

i Rl - BYTii COUNT 

! IMPLICIT INPUTS: 

! EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 



N4 



TSV3 - GLOBAL AREAS MACRO M1113 Gl-FEB-84 18s55 
FIFEXP - PRINT FIFO EXP/RECV DATA 



SEQ 052 



1584 
1585 
1586 

1587 



1588 



1589 
1590 
1591 



1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 

1610 
1611 
1612 
1613 



012060 
012060 
012060 
012060 
012062 
012066 
012072 
012074 
012076 
0x2102 
012102 
012106 
012112 
012114 
012116 
012122 
012124 
012130 
012130 
012130 
012132 
012201 



1614 
1615 
1616 
1617 



1618 



012240 
012240 
012240 
012244 
012246 
012250 
012250 
012252 
012256 
012260 
012262 
012266 
012270 
012274 
012300 
012300 
012300 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
004737 



104423 
045 
045 



FIFEXP; : 



RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
BGNMSG FIFEXP 



012132 
000002 



000006 

012201 
OOOOOl 



000004 
015012 



116 
116 



L10012: 

045 FIF1MSG; 
045 FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENDMSG 

TRAP 



4FIF1MSG.R1 

Rl.-(SP) 

0FIF1MSG,-(SP) 

02,-CSP) 

SP,RO 

CJPNTX 

06, SP 

0FIF2MSG 

0FIF2MSG,-CSP) 

01,-CSP) 

SP.RO 

C$PNTX 

*4 $ SP 

Rl.RO 

PC,PR3YTEXP 



I PRINT BYTES TRANSFERRED 



{PRINT HEADER MSG 



{GET BYTE COUNT 

{PRINT FIFO BYTES IN ERROR 



.EVEN 



CiMSG 

.ASCIZ 

.ASCIZ 



'*N*A NUMBER OF BYTES TRANSFERRED 
•*N*A FIFO DATA BYTES IN ERROR;' 



*D2 



.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



{PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



{IMPLICIT INPUTS: 



012701 012302' 

012100 

001410 

0100' 6 

012746 OOOOOl 

C 10600 

104415 

062706 000004 

000766 

012700 000012 

004737 014442' 



104423 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG • RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLHADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



{ASCII ADDRESS TABLE 
,DONE ALL MSG LINES? 
{BR IF YES 
{PRINT STATUS BIT NAMES 





BGNMSG 


MSGSTAT 


PSGSTAT 


• ; 






MOV 


4STATC0D.R1 


10$: 


MOV 


(R1)»,R0 




BEG 


20$ 




PRINTX 


RO 




MOV 


RO. (SP) 




MOV 


•1. CSP) 




MOV 


SP.RO 




TRAP 


C*PNTX 




ADD 


04 , SP 




BR 


10* 


20$: 


MOV 


010. ,R0 




JSR 


PC.PRMSGEXP 




ENDMSG 





j DO ANOTHER 1SG LINE 

{NUMBER OF WluRDS IN A READ STATUS BUFFER 

{PRINT EXPD/RECV MESSAGE BUFFERS 



LIO^ 5: 



TRAP 



C1MSG 



B5 



TSV3 GLOBAL AREAS MACRO M1U3 01-FEB-84 I8i55 

MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



SEQ 053 



1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
162? 
162© 
1629 
1630 
16 s: I 
1632 
1653 
1634 
1635 
1636 
1C37 
1638 
1639 
1640 
1641 
1642 

1643 
1644 
1645 
1646 



012302 
012320 
012362 
012453 
012544 
012655 
0126/7 



1647 
1648 
1649 
1650 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
166 c 
1663 
1664 
1665 
1666 
1667 



012754 
012754 
012754 
012760 
012762 
012764 
012764 
012766 
012772 
012774 
012776 
013002 
013004 
013010 
013014 
C13014 
013014 

013016 
013036 
013111 
013210 
013307 
013406 
013505 
013604 



012320' 
045 
045 
045 
045 
045 
045 



012362 
116 
116 
116 
116 
1.16 
116 



012453 
045 
045 
045 
045 
045 
045 



012701 013016' 

012100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000 76o 

012700 000012 

004737 014442 



104423 

013036* 
045 
045 
045 
045 
045 
045 
045 



013111 
116 
116 
116 
116 
116 
116 
116 



013210 
045 
045 
045 
045 
045 
045 
045 



STATCOOi 
1*5. ASCIZ 
21:, ASCIZ 
3*:. ASCIZ 
4$j .ASCI* 
51 uASCIZ 
6*s, ASCIZ 



.WORD 
*N*A Taps 
#N*A 
*N*A 
*N*A 

*N*A Tup* 
*N*A 



II, 21. 31, 41, 51. 61,0 



Bus Signols 
PARERR<15> 
IRESV2<14> 
IRESV1<13> 

Bus Signals 
DATMIS<7> 



in Worrf 08: * 

IEOT <12> 

IIDENT<11> 

ICER <10> 
in Word 09: ' 
ILW<6> 0UTRDY<5> 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IRDY<6> 
I0NL<5> 
ILDP<4> 



IRW0<2>' 
IFBY<1>' 
IFPT<0>' 



INRDY<4> 



.EVEN 



,SBTTL MSGLOOP - PRINT LOOPBACK HEADER ANO MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS; 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RtCEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



8GNMSG 
MSGLOOP:: 

MOV 



10t J 



2U$ 



LlOOKi 



MOV 

REQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

AM) 

BR 

MOV 

JSR 

ENOMSG 



MSGLOOP 

fLOOPCOO.Rl 

CR1)»»R0 

209 

RO 

RO.-(SP) 

♦l.-(SP) 

SP.RO 

CIPNTX 

#4,SP 

10* 

♦10,. RO 

PC.PRMSGEXP 



lASCII ADDRESS TABLE 
I DONE ALL MSG LINES? 
i BR IF YES 
iPRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

iNLHBER OF WORDS IN A READ STATUS BUFFER 

iPRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



CIMSG 



LOOPCOO: 

II 

21 

31 

4$ 

51 

61 

71 



♦ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



.WORD 
«*WA Tap* 



*N*A 
tfNSA 

*N*A 
#N*A 
*N*A 
HN*A 



II, 21. 31.4$, 51, 6$. 71,0 
Bus Loopoack Signals in Word #8} 

IRESV2<14> 
IWRT->IIOENT*U> 

IEOIT^IHER <08> 
ITAD1->I0NL <05> 
IRWU ->IRWO <02> 



PARERR<15> 
IHISP^IE0T<12> 
IWFM ->IFMK<09> 
ITA00->IRDY<06> 
IREW ->IDBY<03> 
1G0 ->IFPT<00> 



IRESV1<13>' 
IREV ->ICER <10>* 
IF AD »>ISPEED<07»' 

IERASE->ILDP <04> 
IFEN «>IFBY <Q1>* 



.FVEN 



.SBTTL MSGSU6 - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPQ/RECV 



TSV3 - 
MSGSUB 

1668 
1669 

?670 
1671 
1672 
1673 
1674 
167S 

1676 
1677 
1678 



1679 
1660 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
lo94 
1695 
1696 

1697 
1698 
1699 
1700 
1701 



1705 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
X71& 



GL 



$%%$* s^mmm^wm 



C5 



4 l»t 55 



SEQ 054 



013632 
013632 
013632 
013636 
013642 
013642 
013642 



013644 
013644 
013644 
013650 
013654 
013660 
013664 
013664 
013664 



IMPLICIT INPUTS} 



EXPMSG • EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFF;* 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 
004737 



104423 



000012 
014442 



MSGSUB j j 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENOMSG 

TRAP 



♦10., RO 
PC.PRttSGEXP 



CIMSG 



j SIZE OF WRITE SUBSYSTEM BUFFER 
jPRINT EXPD/RECV MESSAGE BUFFERS 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 

PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS} 

ERRHI - MEMORY ERROR HIGH ORDER AQDPESS 
ERRLO - MEMORY ERROR LOW ORDER ADDRESS 
EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 
013701 
013702 
004737 



104423 



010050' 
002224 ' 
002226' 
007633* 



MEMADD ; 



BGNMSG MEMADD 



L 10016: 



JSR 
MOV 
MOV 
JSR 
ENDMSG 

TRAP 
.SBTTL 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PC.PRIXOR 



iPRINT MEMORY ADDRESS IN ERROR 
>CET EXPO DATA 
)GET RECEIVED DATA 
iPRINT EX'-O/RECV 



CIMSG 

PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
'.JHEM THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS} 



RAMOATA 
RAMSXZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSU-O THEN DEFAULT TO ft, 



li&KT^mNff^ and mum** 01 - FEB - 84 i0j55 



D^ 



jj 



SEQ 055 



IV 19 






1720 






1721 






1722 






1723 






1724 013666 






1725 0136t>6 






1726 013672 


012701 


002234 « 


1727 0136/5 


005002 




1728 013700 


122124 




1729 013702 


001005 




1730 013704 






1731 013714 


0004 re 




1732 013716 


116105 


177777 


1733 013722 


116403 


177777 


1734 013726 






1735 013736 


042703 


177400 


1736 013742 


116137 


177777 002226 


1737 013750 


116437 


177777 002224 


1736 013756 






013756 


010346 




013760 


013746 


002224' 


013 764 


013746 


002226' 


013770 


010246 




013772 


012746 


014046' 


013776 


012746 


000005 


014002 


010600 




014004 


104414 




014006 


062706 


000014 


1739 014012 


005202 




1740 014014 


005737 


002274' 


1741 014020 


001404 




1742 014022 


020237 


002274' 


1743 C 14026 


003724 




1744 014030 


000403 




1745 014032 


020227 


00001 


1746 014036 


002720 




1747 0140*0 


005037 


002274' 


1748 014044 


000207 




1749 






1750 014046 


045 


116 045 


1751 






1752 






1753 






1754 






1755 






1756 






.757 






lv :h 






175S 




. 


1760 






1761 






1762 






1763 






1764 






176^. 






1766 







I IMPLICIT OUTPUTS! 






RAMSIZ SET TO 



PRAMPKT: 



5** 



7$ 



10*; 



15$: 
2C$s 

25$; 



RAMASC} 



SAVREG 

MOV 
CLR 
CMPB 
BNE 



0RAMDATA.R1 
R2 

CR1)* ( (R4)* 
7* 



FORCERROR 



BR 

nova 

MOVB 

XOR 

BIC 

MOVB 

MOVB 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

TST 

BEU 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 

.EVEN 



7$ t N0TSSR 



101 

-1CR1),R5 

-1(R4),R3 

R5.R3 

0177400, R3 

-URD.RECV 

~l(R4),EX»D 

ORAMASC , R2 , RECV , EXPO , R3 

R3.-CSP) 

EXPO.(SP) 

RECV,-CSP) 

R2.-CSP) 

ORAMASC-CSP) 

*5,-(SP) 

SP.RO 

CJPNTB 

C14.SP 

R2 

RAMSIZ 

151 

R2, RAMSIZ 

5i 

25$ 

R2.08. 

51 

RAMSIZ 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

j DATA FROM THE RAM 

iINIT BYTE NUMBER 

I COMPARE EXPECTED, RECEIVED 

l BR IF NO MATCH 

j SOD 

iGET RECV RAM DATA 

j GET EXPO PACKET DATA 

i XOR EXPD/RECV 

lLOW BYTE ONLY 

I GET RECEIVED RAM DATA 

j GET EXPECTED RAM DATA 



I UPDATE BYTE COUNT 

» DEFAULT TO 8.? 

jBR IF YES 

lOONE ALL BYTES? 

;BR IF NO 

i 

lOONE DEFAULT NUMBER OF BYTES? 

I BR IF NO 

i SET DEFAULT RAMSIZ 

I RE TURN 



*N*A BYTE: #D2*A RAM: *03*A Packet: *03*A X0R;*03' 



.SBTTL PRMESS 



PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED 9Y THE 

TSV-05. 

INPUT: 

RO LOW OROER ADDRESS OF MESSAGE BUFFER 
Ri HIGH ORDER ADDRESS OF MESSAGE BUFFER 

NOTE: Rt IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



E5 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18:55 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 056 



1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 



1780 



1781 
1782 
1783 
1784 
1785 
1786 
1767 



1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 



014135 
014132 
0141*6 
014140 
014144 
014146 
014150 
014152 
014154 
014156 
014156 
014160 
014162 
014166 
014172 
014174 
014176 
014202 
014202 
014206 
014212 
014214 
014216 
014222 
014224 
03 4226 
014230 
014232 
014236 
014240 
014240 
014242 
014244 
014250 
014254 
014256 
014260 
014264 
014266 
014272 
014274 
014276 
014304 
014306 

014310 
014355 
014413 



010005 
005737 

ooioo:. 

005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
: 044 15 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
02042/ 
003005 
002761 
032763 
001355 
000207 

045 
045 

045 



PRMESS: 



003126 



10$} 



014310' 
000003 



OOOOIO 

014355' 
000001 



000004 



017210' 



014413 
000003 



20$: 



OOOOIO 
0OAOO7 

000200 000012 



116 
116 
116 



045 
045 
045 



501: 

PROASC 
PR1ASC 
PRASC: 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

aa 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

TNC 

CMP 

BGT 

BIT 

BIT 

BNE 

RTS 

.ASCIZ 

■ASCIZ 
.ASCIZ 
.EVEN 



R0.R5 

KTENA8LE 

10$ 

Rl 

R1.R3 

RO 

Rl 

♦PR0ASC.Rl.R5 

R5.-CSP) 

Rl.-CSP) 

♦PROASC ,-CSP) 

♦3,-(SP> 

SP.RO 

CIPNTX 

#10, SP 

♦PR1ASC 

♦PRIASC.-(SP) 

♦l.-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

R4 

R5,R1 

R3.R0 

20$ 

PC.SETMAP 

R0.R5 

♦PRASC,R4,CR5) 

(R5)*.-CSP) 

R4.-CSP) 

♦PRASC, -CSP) 

♦3,CSP) 

SP.RO 

C$PNTX 

♦10, SP 

R4 

R4.07 

50$ 

20$ 

♦X2.EXTF,XST2( 

20$ 

PC 



(SAVE THE REGISTERS 

(SAVE LOW ORDER ADDRESS 

(ADDRESS ABOVE 20K? 

iBR IF YES 

I SET HIGH ORDER ADDRESS TO 

{SAVE HIGH ORDER ADDRESS 

ISHIFT BIT15 TO C BI1 

»SHIFT TO HIGH ORDER FOR PRINTOUT 

(PRINT MESSAGE BUTTER ADDRESS 



(PRINT HEADER FOR CONTENTS 



(NUMBER OF THE NEXT WORD 

(COPY LOW ORDER ADDRESS 

(COPY HIGH ORDER ADDRESS 

(BR IF NOT ABOVE 28K 

(SETUP PAR ADDRESS IN RO 

(GET PAR FORMAT ADDRESS ABOVE 28K 

(PRINT THE CONTENTS OF MEMORY BUFFER 



(NUMBER OF THE NEXT 
(DONE ALL YET ? 
(BRANCH IF ALL OONE 
(PRINT FIRST 7 WORDS 
R3)tEXTEN0ED FEATUTES ON ? 
(PRINT EXTENDED STATUS UORD 
(RETURN 



*N#A M*«sag« Buffer Address » *0H05' 
*N*A Messag« Buffer Contents: ' 
*N*A Word#Dl*A: *0' 



.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



J ♦ 

2 



(ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 



TSV3 - GLOBAL AREAS 



PRMSGEXP - PRINT EXPD/RECV M r £SS 


1805 






1806 






1807 






1808 






1809 






1810 






1811 






1812 






1813 






1814 






1815 014442 






1816 014442 






1817 014446 


010005 




1818 014450 


013700 


002300* 


1819 01445-1 


010004 




1820 014456 


013701 


002276' 


1821 014462 


006100 




1822 014464 


0O6101 




1823 014466 






014466 


010446 




014470 


010146 




014472 


012746 


014622' 


014476 


012746 


000003 


014502 


OICSOO 




014504 


104415 




014506 


062706 


000010 


1824 014512 






014512 


012746 


014667' 


014516 


012746 


000001 


014522 


010600 




014524 


104415 




01452* 


062706 


000004 


1825 014532 


005004 




3826 014534 


012701 


002314' 


1827 014540 


012702 


002460' 


1B3C 014544 


OlllOO 




1829 014546 


011203 




1830 01*550 






1831 014560 






014560 


010346 




014562 


01224* 




014564 


012146 




014566 


010446 




014^70 


012746 


014725' 


014574 


012746 


000005 


014600 


010600 




014602 


104415 




014604 


062706 


000014 


1832 014610 


00^204 




,1833 01461c 


020405 




1834 014614 


002001 




1835 014616 


000752 




1836 014620 


000207 




1837 






1838 014622 


045 


116 


1839 014£67 


04 5 


116 


1840 014725 


045 


116 



MACRO M1U3 Ql-FEB-84 18:55 
CV MESSAGE BUFFERS 



F5 



SEQ 057 



RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS j 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



PRMSGEXP:: 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50*: RTS 



R0.R5 

RCVLOADD.RO 

R0,R4 

RCVHIADD.R1 

RO 

Rl 

♦PRMSG0.R1.R4 

R4»-(SP) 

Rl.-CSP) 

♦PRMSGO.-(SP) 

♦3,-CSP) 

SP.RO 

CSPNTX 

♦10, SP 

♦PRMSG1 

0PRMSG1.-CSP) 

•1,-CSP) 

SP.RO 

C1PNTX 

04, SP 

R4 

*EXPMSG # R1 

0RECMSG.R2 

(R1),R0 

(R2),R3 

R0.R3 

*prmsg2,r4,cr1) 
R3,-csp: 

CR2)f ,-(SP) 

CRl)^-(SP) 

R4.-CSP) 

**JRMSG2,-CSP) 

05,-CSP) 

SP.RO 

CiPNTX 

014, SP 

R4 

R4.R5 

50$ 

20* 

PC 



» SAVE R1-R5 Ui'VTIL NEXT RETURN 

I SAVE NUMBER OF WORDS 

iGET RECV LOW ADDRESS 

tCOPY LOW AODRESS 

jGET RECV HIGH ADDRESS 

{SHIFT BIT15 TO C BIT 

l SHIFT TO HIGH ORDER FOR PRINTOUT 

r PRINT MESSAGE BUFFER AODRESS 



{PRINT HEADER FOR CONTENTS 



, NUMBER OF THE CURRENT WORD 
jGET EXPD BUFFER ADDRESS 
iGET RECV BUFFER ADDRESS 
iGEl EXPD 
»GET RECV 
I XOR EXPD/RECV 
*,(R2)*,R3 



jNWIBER OF THE NEXT 
iDONE ALL YET? 
jBR IF YES 
l DO ANOTHER 
j RETURN 



045 PRMSGO: .ASCIZ * *M*A Meesaoe Buffer Address • 1*01*05' 

045 PRMSG1: . ASCIZ • *N*A Message Buffer Contents: 1 

045 PRMSG2: .ASCIZ ' *N*A WORD C*D2*A EXPD: *06*A RECV: *06tfA XOR: *06' 



G5 



TSV3 - GLOBAL AREAS MACRO M1113 Ol-FEB-84 18:55 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



.EVEN 



SEQ 058 



1841 








1842 








1843 








1844 








1845 








1846 








1847 








1848 








1849 








1850 








1851 








1852 








1853 








1854 








1855 








18^6 


015012 






1857 


015012 






1858 


015016 


010005 




1859 


015020 


005037 


002312' 


1860 


015024 


005004 




1861 


015026 


012701 


002314' 


1062 


015032 


012702 


002460' 


1863 


015056 


111100 




1864 


015040 


042700 


177400 


1865 


015044 


110037 


015360' 


1866 


013050 


111203 




1867 


015052 


042703 


177400 


1868 


015056 


110337 


015362' 


1869 


015062 






1870 


015072 


122122 




1871 


015074 


001431 




1872 


015076 


005237 


002312' 


1873 


015102 


023727 


002312' 000010 


1874 


015110 


101023 




1875 


015112 








015112 


C10346 






015114 


013746 


015362* 




015120 


013746 


015360' 




C15124 


010446 






015126 


012746 


015226' 




015132 


012746 


000005 




015136 


010600 






015140 


104415 






015142 


062706 


000014 


1876 


015146 






1877 


015156 


000404 




1878 


015160 






1879 


015160 






1880 


015170 






1881 


015170 


005204 




1882 


015172 


020405 




1883 


015174 


002001 




1884 


015176 


Cv/0717 




188J7 


0.15200 








015200 


013716 


002312' 




015204 


012746 


015313' 




015210 


012746 


000002 



.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



i * 



ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS: 



EXPMSG 
RECMSG 

PRBYTEXP:: 

SAVREG 

MOV 

CLR 

CLR 

MOV 

MOV 

20$: MOVB 
BIC 
MOVB 
MOVB 
BIC 
MOVB 
XOR 
CMPB 
BEQ 
INC 
CMP 
BHI 

27$: PRINTX 
MOV 



- EXPECTED MESSAGE BUFFER 

- RECEIVED MESSAGE BUFFER 



R0.R5 

PRMNO 

R4 

0EXPMSG.R1 

*RECMSG,R2 

(Rl).RO 

*tC<377>,RO 

R0.PRB6XP 

(R2),R3 

*tC<377>.P3 

R3. PRBREC 

R0.R3 

(R1)*,(R2)* 

30 $ 

PRMNO 

PRMNO. 08. 

301 



30* : 
35$: 



50$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

FORCEXIT 

BR 35$ 



30$ jBR IF YES 

OPRBMSG , R4 , PRBEXP , PRBREC » R3 
R3.-CSP) 
PRBREC, -CSP) 



>SAVE R1-R5 UNTIL NEXT RETURN 

iSAVE NUMBER OF BYTES 

iINIT ERROR COUNT 

I NUMBER OF THE CURRENT BYTE 

I GET EXPO BUFFER ADDRESS 

jGET RECV BUFFER ADDRESS 

;GET EXPD BYTE 

j CLEAR UPPER BYTE 

I SAVE FOR ERROR REPORT 

iGET RECV BYTE 

iCLEAH UPPER BYTE 

i FOR ERROR REPORT 

i XOR EXPD/RECV 

lEXPD - RECV? 

iBR IF YES 

jUPDATE ERROR COUNT 

iPRINTED 8? 



PRBEXP.-CSP) 
R4.-CSP) 

*PRBMSG,-(SP) 

*5,-CSP) 

SP.RO 

C$PNTX 

014, SP 

50$ 



FORCERROR 27$,N0TSSR 

INC R4 

CMP R4.R5 

BGE 50$ 

BR 20$ 

PRINTX OPRBTOT , PRMNO 

MOV PRMNO, -CSP) 

MOV *PRBTOT,-(SP) 

MOV 02, -CSP) 



tsao 

1 880 

1 880 

I 880 

j NUMBER OF THE NEXT 

l DONE ALL YET? 

jBR IF YES 

j 00 ANOTHER 

i PRINT TOTAL ERROR COUNT 



H5 



TSV3 - GLOBAL AREAS MACRO M1113 01 -Fl 
PR8YTEXP - PRINT ERROR BYTES IN EXP/REC Ml 



1885 
1887 

1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
190? 
1903 
1904 
1905 
1906 

1907 
1908 



1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 

1927 
1928 



1929 
19?'0 
1931 
1932 
1933 



015214 
015216 
015220 
015P24 

015226 
015313 

015360 
015362 



015364 
015364 
015364 
015370 
Gi5370 
015370 



015372 

015372 
015372 
015376 
015376 
015376 



010600 

104415 

062706 000006 

000207 



045 

045 

000000 
000000 



116 
116 



004737 007632 1 



104423 



004737 007502 



10*4423 



iSAGE &OFFER 

MOV SP.RO 

TRAP CfPNTX 

ADO 06, SP 

RTS PC 



SEQ 059 



I RETURN 



045 PRBMSGj .ASCIZ 
045 PRBTOT: .ASCIZ 
.EVEN 
PRBEXPj .WORD 
PRBREC: .WORD 



'*N*A BYTE #*D2*A EXPO: *03*A RECVs *03«fA XOR? *03» 
<*N*A NUMBER OF BYTES IN ERROR - *D2' 



.SBTTL EXPREC 



jEXPD 
iRECV 

PRINT EXPD/RECV WORD DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC? ; 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENOMSG 



j PRINT iHE DATA 



TRAP 



C*MSG 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



BGNMSG EXPBREC 
EXPBREC j : 

JSR PC,PRIBXOR 

ENDMSG 
L 10020! 

TRAP CIMSG 



(PRINT THE DATA 



.SBTTL RAMERR - PRINT RAM AND PACKET DATA 



15 



T3V3 - GLOBAL AREAS MACRO M1U3 
RAMERR PRINT RAM AND PACKET DATA 



1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 



01-FEB-84 18:55 



SfcQ 060 



1954 
1955 



1956 
1957 
1958 
1959 
1960 
1961 
19o2 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 

1981 
1962 

1983 



1984 



015400 

015400 

015400 004737 013666* 

015404 

015404 

015404 1C4423 



015406 
015406 
015406 
015412 
015416 
015416 
015416 



004737 
004737 



104423 



010164' 
013666 J 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS! 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS; 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PrCKET 
IF RAMSIZ-0 THEN DEFAULT TO 8, 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



RAMERR:: 



L10G21: 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENOMSG 



, PRINT RAM/PACKET DATA 



TRAP 



CJMSG 



.SBT1L RAMTACD - PRINT TEST ADDRESS, RAM AND PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM'PACKET DATA 
INPUTS: 

R4 POINTER TO COMhAND PACKET 
IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 
HIGH ORDER TEST ADDRESS 
LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG RAMTADD 
RAMTADD; : 

JSR PC.PRITADD 

JSR PC.PRAMPKT 

ENDMSG 
L10022: 

TRAP CJMSG 



iPRINT TEST ADDRESS 
I PRINT RAM/PACKET DATA 



J5 



TSV5 - GLOBAL ARFAS MACRO Ml 1 13 Ol-FEB-84 18;55 
RAMTADD - PRINT TEST ADDRESS. RAM AND PACKET DATA 



SEQ 061 



1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 

1999 
20C0 

2001 
2002 
2003 



2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 

2018 



015420 
015420 
015420 
015424 
015430 
015434 
015440 
015440 
015440 



2019 
2020 



2021 
2022 
2023 
2024 
2025 
2026 
202 7 
2028 
2029 
2030 



015442 
015442 
015442 
015442 
015* 4b 
015452 
015454 
015456 
015462 
015466 
015466 
015466 



015470 



,SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS; 



042701 
042702 
004737 
004737 



104423 



177400 
177400 
007756' 
007632' 





Rl 


RECEIVED DATA 




R2 


EXPECTED DATA 


;. 


R4 


CONTROLLER RAM ADDRESS 




BGNMSG 


RAMEXP 


RAMEXP ; 


« 






BIC 


0tC<377>,Rl 




BIC 


♦*C<377>,R2 




JSR 


PC.PRIRAM 




JSR 


PCPRIXOR 




ENOMSG 




L10023; 







j SAVE EXPD RAM DATA BYTE 
i SAVE EXPO RAM DATA BYTE 
I PRINT THE RAM ADDRESS 
j PRINT THE DATA 



TRAP 



CiMSG 



♦SBTTL TIMEXP - PRINT TIMER A,B AND EXP/REC 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
AND TIMER A ,3 HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVEO DATA 
EXPECTED DATA 



TIMEXP; 



012746 
012746 

010600 
104415 
062706 
004737 



104423 
045 



015470' 
000001 



000004 
007b32 



BGNMSG TIMEXP 
PR1NTX «TIMSGO 



I PRINT HEADER 



MOV 


OTIMSG0,-(SP) 


MOV 


•1,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


04, SF 


JSR 


PC.PRIXOR 


ENOMSG 




L 10024; 





; PRINT THE DATA 



TRAP 



CIMSG 



116 



045 TIMSGO: .ASCI2 • *N*A TIMER A STATUS IS IN GIT 3*N*A TIMER B STATUS IS IN BIT 2' 
.EVEN 



.SBTTL BADSSR • PRINT TSSR ERRORS ON DATA TRANSFERS 



J ♦ 

; 



I<5 



T"V3 - GLOBAL AREAS MACRO MU13 Ol-FEU-84 18:55 
8A0SSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 062 



2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 

2041 
2042 



2044 
2045 
2046 



2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
3078 



015570 
015570 
015570 
015572 
015576 
015576 
015600 
015604 
015610 
015612 
015614 
015620 
015622 
015626 
015626 
015626 
015630 



010246 
042702 

010246 
012746 
012746 
010600 
104414 
062706 
012602 
004737 



104423 
045 



177400 



015630 
000002 



000006 
005632 

116 



045 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 



t INPUTS t 
» 

i 
l - 

RADSSR: 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN C8 BITS) 



BGNMSG BADSSR 



MOV 


R2.-CSP) 


BIC 


0177400, R2 


PRINTB 


♦XFERASC, R2 


MOV 


R2.-CSP) 


MOV 


dXFERASC.-(SP) 


MOV 


#2,-(SP'J 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADD 


06, SP 


MOV 


(SPV.R2 


JSR 


PC.PRITSSR 


ENDMSG 




L10025: 




TRAP 


CIMSG 


XFERASC: 


.ASCIZ '*N*A 



jSAVE DATA TRANSFERRED 
,GET JUST ONE BYTE 



j RESTORE R2 

I DECODE TSSR CONTENTS 



*N*A Dato Transferred « *Q3 



.SBTTL GLOBAL SUBROUTINES SECTION 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
t THAT ARE USED IN MORE THAN ONE TEST. 
1 -- 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTEk THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS: 

R5 
OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 

MOV 0ADDRESS.R5 



TSV3 - GLOBAL AREAS MACRO 
SOFINIT - SOFT INITIALIZE Of 



M1113 01 -FEB -64 18; 55 
CONTROLLER 



L5 



SEQ 063 



2079 

2080 

2081 

2082 

2083 

2084 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2 MO 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 



015664 
015664 
015670 
015676 
015702 
015706 
015710 
015714 
015720 
015722 
015724 
01572S 
015730 
015732 



015734 
015734 
015740 
C15742 
015746 
015750 
015754 
015756 
015760 
015764 
015766 
015772 
015774 
0J.6000 
016004 
016006 



i 

J 
I 
! - 



JSR 
BCS 
ERRDF 



PC, SOFINIT 
CONTINUE: 



j REPORT FATAL £RROR 



SOFINIT; 



012765 000000 000002 

004737 016140' 

016500 000002 

010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

000207 



* 10004 

032700 
0010O4 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
00100? 
000410 



5$t 
10$: 



} ♦ 

i 



SAVREG 

MOV 

JSR 

MOV 

MOV 

BIC 

BIS 

CMP 

BEQ 

CLC 

BR 

SEC 

RTS 



*0,TSSRCR5; 

PC.WAITF 

TSSR(R5),R0 

R0.R4 

<M"C<HIADDR!0FL>, 

0SSR!NBA t P4 

R4.R0 

5$ 

10$ 

PC 



R4 



SAVE THE REGISTERS 

DO THE INIT. 

WAIT FOR SSR 
GET THE TSSR REGISTER 
TSSR CONTENTS 



R4 HAS EXPECTED CONTENTS 

ONLY EXPECTED BITS SET ? 

BRANCH IF OKAY 

CLEAR THE CARRY FOR ERROR 

GO TO EXIT 

SET THE CARRY BIT 

RETURN TO CALLER 



.SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



j THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
;FOR AMBIGUITY 

jINPUT; 

I RO 

! OUTPUT; 

J 



CONTENTS OF TSSR 



RO 
CARRY 



CONTENTS 0? TSSR 

SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 



100000 
174077 

000200 

000040 

177761 
000016 



5$ 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

3R 



{SAVE THE GENERAL REGISTERS 

{CONTENTS OF TSSR 

{IS BIT 15 SET ? 

5* {BRANCH If YES 

♦ ♦C<NBA10FUSSRIHIADDR>,RO {ANY OTHER BITS SET ? 

40$ {MUST BE AN ERROR 

{RETURN WITH SUCCESS 

iIS READY BIT SET " 

{BRANCH IF READY 

iIS FATAL ERROR 

{ERROR IF NOT 

{CLEAR ALL BUT TERMINATION CODE 

{ALL THREE BITS MUST BE SEY 

{ERROR IF NOT SET 

I OK IF ALL ARE SET 



R0,R4 

*SC,RO 

5$ 



45$ 

OSSR.RO 

10* 

«eiT5.R0 

40$ 

OtCTERCLS,R4 

R4.016 

40$ 

45$ 



? 

BIT IS 
BIT SET 



SET, 

7 



M5 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 18:55 
CHKAMB - CHECK TS5R FOR AMBIGUITY 



SEQ 064 



2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

214 4 ! 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

216f 

216/ 

2168 

2169 

2170 

2171 

217il 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 
2186 

2187 
2188 
2189 
2190 
2191 



016010 
016014 
016016 
016022 
016024 
016026 
016030 
016032 



016034 
016035 

016036 
016040 



016042 
016044 
016050 
016054 
016060 
016062 
016064 
016072 



016074 
016076 
016104 



016106 
016106 
016106 
016114 
016120 
016126 
016130 



032700 000040 

001405 

032700 000006 

001002 

000241 

000401 

000261 

000207 



000200 
000001 



000 
000 

000000 
000000 



010046 

013700 002202' 

012720 C16106' 

012720 000340 

012600 

011646 

012766 000000 000002 

000002 



011646 
012766 
000002 



012737 
105037 
132737 
001003 
152737 



000340 000002 



000001 
016035 
000001 

000001 



002216' 
016034' 
016035' 



10$} 


BIT 


0GIT5.RO 




BEQ 


45$ 




BIT 


0BIT2!BITl.R0 




ONE 


45$ 


40$: 


CLC 






BR 


50$ 


45$: 


Sf.C 




50$: 


RTS 


PC 



lIS FATAL ERROR BIT SET ? 
j ERROR IF BIT IS SET WITH SSR 
{IS THIS A FUNCTION REJECT 
I BR, IF TSSR IS OK 
j AMBIGUOUS CONTENTS 

j SHOW SUCCESS - NO AMBIGUITY 
j RETURN TO CALLER 

.SBTTL ENAINT.DSBINT - ENABLE/DISABLE INTERRUPTS 

; DEFAULT DISPLAY INTERRUPT HANOLERS. 

5 IF DISPLAY TIME-OUT, REPCHT DEV FATAL, AND ABORT PASS. 

i OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 



BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES; 



I0KCK1N-BIT7 
IOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL 
; EXPECT "STOP" INTERRUPT. 



i INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

{INTERRUPT FLAG -- SAYS WE GOT ONE C IF POSITIVE) 

INTFLAG: ,BYTc 

{SAVED INTERRUPT VECTOR: 

INTVEC; .WORD 
j SAVE CPU PC 

INTCPC: .WORD 



i SUBROUTINE TO ENABLE INTERRUPTS: 



ENAINT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RO.-CSP) 

IVEC.PO 

*INTR,CRO)* 

*PRI07,CR0)f 

(SP)*,R0 

(SP).-cr.P) 

*0,2(SP) 



j SAVE RO 

jGET POINTER TO VECTORS 

j SET UP INTERRUPT VECTOR 

{RESTORE RO 

{SET CPU TO LEVEL 



{SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 



DSBINT: MOV 
MOV 



INTR : : 



RTI 
.SBTTL 

BGNSRV 

MOV 

CLRB 

BITB 

BNE 

BISB 



(SP).-CSP) 

4PRI07.2CSP) 



INTR - INTERRUPT HANDLERS 

INTR {DEFINE INTERRUPT ENTRY 

Ol.INTPECV {SET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG {CLEAR FLAG TO SAY WE GOT INTERRUPT 

ftlOKSTP, INTMASK {EXPECTING STOP INTERRUPT? 

1$ {BR IF YES 

OICKSTP. INTFLAG jNO. SET THE ERROR FLAG. 



{SAVE REGISTERS, MSG BUFFER, ETC, 



N5 



TSV3 - GLOBAL AREAS MACRO M1113 
INTR - INTERRUPT HANDLERS 



01-FEB-64 18*55 



SEQ 065 



2192 
2193 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 

2211 
2212 
2213 
2214 
2215 
2216 



016136 
016136 
016136 
016136 



2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
?231 
2232 
2233 
2234 
2235 
2236 
2237 



016140 
016142 
016142 
016144 
016150 
016154 

016156 
016160 
016160 
016164 
016166 
016172 
016174 
016200 
016202 
016206 
016210 
016212 
016214 
016216 
016220 
016222 
016224 



000002 



000401 

104422 
012746 
016500 
105700 

100420 

012727 
000000 
013737 
000000 
005367 
001375 
005367 
001367 
005316 
001356 
000241 
000401 
000261 
005326 
000207 



1$; 
L10026: 



ENDSRV 



011000 
000002 



000001 
002116 1 
177772 
177756 



RTI 
.SBTTL. 
SUBROUTINE TO 

INPUTS: 

R5 

OUTPUTS: 

RO 
CARRY 



WAITFi: BR 

BREAK 
TRAP 
1 * : MOV 
2$: MOV 
TSTB 



BMI 

D^LAY 

MOV 

, WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RTS 



WAITF - WAIT FOR SUBSYSTEM READY 
WAIT FOR THE SUBSYSTEM READY FLAG 

ADDRESS OF FIRST DEVICE REGISTER 



CONTENTS OF LAST TFSR READ 

SET - READY BIT SE' 

CLR - TIMEOUT WAITING FOR READY 



Hi 
4$: 



1$ 

CiBRK 

#11000, -(SP) 
TSSR(R5),R0 
RO 

3$ 

1 

01, (PC)* 



L$DLY,(PC)* 



-6CPC) 

. -4 

-22CPC) 

. -20 

(SP) 

2$ 

4$ 

CSP)* 

PC 



{NOP WHEN SUPER FIXED 

{ 00 A SUPVSR BREAK FIRST. 

j25-APRIL-63 REV B - 1100 MSEC TIMER 
j READ THE TSSR REGISTER 
{TEST FOR READY BIT SET 

j EXIT ON STO^ FLAG, 
j WAIT 100 USEC 



{REDUCE DELAY COUNT 

jRFTRY UNTIL TIMER EXPIRES 

j C - 0, CON ROLLER STILL RUNNING .. 

j... OR HUNG-UP AFTER 300 MSEC. 

I C ■ 1. CONTROLLER IS STOPPED. 

{RESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



♦ THIS ROUTINE WAITS FOR READf IN THE TSSR 
:AND 1ESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



{INPUT: 



R5 



ADDRESS OF CSR REGISTERS 



{QUTPUTj 

i 



B6 



TSV3 - GLOBAL AREAS MACRO M1113 01-FEB-84 1A|55 
CHKTSSR - CHECK TSSR FOR READY 



SEQ 066 



2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2250 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2250 

2281 

2282 

2283 



2284 
2285 
2286 

2287 
2288 
2289 

2290 
2291 
2292 



016226 
016226 
016232 
016234 
05.6240 
016242 
016246 
016250 
016254 
016256 
016260 
016262 
016264 



016266 
016274 
016302 
016304 
016306 

016310 
01631? 
016314 
016320 

016322 
016324 
016330 
016332 
016332 
016356 
016340 
016342 
014344 
016346 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 



012737 
012737 
005003 
000241 
005711 

020102 
001407 
062701 
000772 

005103 
012716 
000002 

012700 
104456 
005 70 S 
001401 
000261 
000c07 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



016140 
015734 
100000 
074000 



CHKTSSR 


: 






JSR 


PC.WAITF 




BCC 


20$ 




JSR 


PC.CHKAMB 




BCC 


10$ 




Bit 


OSC.RO 




BEQ 


15$ 




BIT 


*<SCE!BIE|RMR|NXM>,RO 




BEQ 


15$ 


10$ 5 


CLC 






sn 


20$ 


15$» 


SEC 




20$ j 


RTS 


PC 



OUT 



,SB7TL XNXM 



jWAIT FOR READY 

I BRANCH IF TIME 

I TSSR AMDIGOUS? 

>BR IF YES 

iSPcCIAL CONDITION 

iBR IF NO 

lANY ERROR BITS SET? 

I BR IF NO 

iSET FAILURE 

jSET SUCCESS 

I RE TURN TO CALLER 



CHECK FOR NONEXISTENT MEMORY 



SET? 



016322 1 000004 
000200 000006 



ROUTINE TO TEST FOR A N€XM IN THE RANGE (Rl) THRU (R2), 
ON RETURN, IF H C" ■ 1, (Rl) • NEXM ADDRESS, 
"C" ■ 0, ALL ADDRESSES OK, 



CAI.L: 



XNXMt 



1$ 



000002 

016332 
000004 



2f 



31: 



MOV 


A0R1.R1 


MOV 


ADR 


2.R2 


JSR 


PC, 


NXM 


PP. TURN 


>T 


MOV 




♦2$.S#4 


MOV 




#PRI04,Q06 


CLR 




R3 


CLC 






TST 




CR1> 


CMP 




R! ,R2 


BEQ 




3$ 


AOO 




♦2.R1 


BR 




1$ 


COM 




R5 


MOV 




«3$,CSP) 


RTI 






CLRVEC 


04 


MOV 




♦4.R0 


TRAP 




CICVEC 


TST 




R3 


BEQ 




. *4 


SEC 






RTS 




PC 



>TEST "C" ANO PROCEED, 

I SET BUSERR VECTOR. 



jFLAG. 

I CLEAR THE CARRY FOR ND NXM FOUNO 

I TEST THE ADDRESS(ES). 

I IF ANY TRAP, CONTINUE AT 2$. 

iOTHERWISE. CONTINUE MERE. 

iBR IF FINISHED (NO NEXM'S), 

jSET NEXT ADORESS.,, 

I. . .AND CONTINUE. 

(GOT ONE, SET FLAG.,. 

I... AND DISMISS INTERRUPT... 
I •••AND GIVE BACK THE VECTOR, 



>DID WE CATCH ONE ?? 

iNO, "C" » 0, SKIP NEXT. 

lYES, »C" - i, (Rl) » NEXM ADDR* 



,58111 TSTLOQP • CHECK ITERATION COUNT 



C6 



002162' 
002176' 
002210* 



TSV3 GLOBAL AREAS MACRO MJ.U3 
TSTLOOP - CHECK ITERATION COUNT 



2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2S25 
2324 
2325 



01-FEB-84 18}55 



SEQ 067 



016350 
016350 
016354 
016356 
016362 
016364 
016370 
016372 
016374 
016376 
016400 



005737 
001006 
005737 
100403 
00533? 
001002 
000241 
000401 
000261 
00020? 



2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2354 
2335 
2336 
2337 
2338 
2339 
2340 
2541 
2542 
2343 
2344 
2345 
2346 
2347 
2348 
2349 



016402 
016402 
016404 
016410 
016414 
016420 
016424 
016430 
016432 
016436 
016440 
016442 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
001430 
100010 
052760 



SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO, 

LOOP COUNTER IS SET BY "BEGIN. TEST" MACRO. 



I ITERATIONS INHIBITED? 

I YES. 

I NO. 

I LOOPS DISALLOWED IN QUICK PASS. 

I BUMP LOOP COUNTER. 

j LOOP DISALLOWED, OR DONE. 

I LOOP ENABLED. 

PRINT TEST NAME ANO INIT ERROR COUNTS 

PRINT THE NUM8ER ANO NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER ANO SIGNATURE EXTENSION F..AGS. 



1 CALLi LOOPTO 


ARG 


TSTLOOP t: 




TST 


NOITS 


BNE 


11 


TST 


QVP 


BMI 


11 


DEC 


LOOPCNT 


BNE 


21 


1$: CLC 




BR 


3$ 


2*: SEC 




3$: RTS 


PC 


.SBTTL 


TSTSETUP 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT j 



R5 



003146 
016650 
005600 
016034 
002174 

003106 



160000 QQ317Q 1 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS? 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



SAVE THE TEST ID M&3SAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG, 
CLEAR INTERRUPT MASK (CHECK ENRON) 
GET THE UNIT NUMBER. 
... ANO MAKE IT A WORD OFFSET. 
010 STARTUP FIND THE DEVICE? 
BR IF YES 
9P IF NOT IDLE 
BIS *l6UQQ0,fcRTABLCR0) t FLAG ERROR IN THE ERROR TABLE 



TSTSETUP; ; 




MO/ 


RO. (SP) 


CLR 


SIFLAG 


CLR 


ERRK 


CLR 


EXTA 


CLRB 


INTMASK 


MOV 


UNITN.RO 


ASL 


RO 


TST 


NOOEV 


BEQ 


40 


BPL 


31 



TSV3 - GLOBAL AREAS 
TSTSETUP - PRINT TEST 



MACRO M1U3 
NAME AND INIT 



D6 



2350 



2351 

2352 
2353 



2354 
2355 



2356 

2357 
2358 
2359 

2360 
2361 
2362 
2363 



2364 
2365 



2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 

2378 
2379 
2380 



016450 
016450 
016452 
016454 
016456 
016460 
016462 
016470 
016470 
016472 
01647A 
01647c 
016500 
016506 
016506 
016512 
016514 
016514 
016516 

016520 
016520 
016522 
016526 
016530 
016532 
016532 
016534 
016540 
016544 
01654C 
016550 
016554 
016560 
016560 
016564 
016566 
016570 
016574 
016576 



016612 
016612 
016614 
016620 
016622 
016622 
016626 
016632 
016655 
016640 



104455 

^00001 

003730 ■ 

005544' 

000407 

052760 

104455 

000002 

004325' 

000000 

012737 

013700 
104451 

104444 
000423 



104421 
032700 
001412 
011600 

010046 
012746 
012746 
010600 
10441/ 
062706 
005237 

013700 
104441 
005726 
013705 
000207 
045 



150001 003170' 3$; 



177777 
002174 



01-FEB-84 18:55 
ERROR COUNTS 



ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

3IS 

EHRDF 

1RAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 



SEQ 063 



003104' 2$ } 



4$: 



001000 



016576 
000002 



000006 
002206 

002204 



002200 
123 



1$: 

51: 
045 TNAM: 

I 



RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOC 

INC 

SETPRI 

MOV 

TRAP 

1ST 

MOV 

RTS 

.ASCIZ 

.EVEN 



l.NXR.NXRERR 
C1ERDF 

1 

NXR 

NXRERR 

2$ 

0160001, ERTABL(RO) 



I NO DEVICE HERE -- PRINT IT 



2.N0IN1T 
CIERDF 

2 

NOINIT 



O-l.DUFLG 

UNITN 

UNITN.RO 

C1D0DU 

CIOCLN 
5* 

RO 

CIRFLA 

OPNT.RO 

1$ 

(SP),RO 

OTNAM.RO 

RO.-(SP) 

OTNAM,-CSP) 

02,-CSP) 

SP.RO 

CtPNTF 

#6.'JP 

TSTCNT 

IPRI 

IPRI.RO 

CISPRI 

CSP)* 

CSRADDR.R5 

PC 

»*S*T*A Test 



\ FLAG ERROR IN THE ERROR TABLE 



l DEVICE NOT IDLE 



I DROP THE UNIT 



I ABORT THE PASS 



j GET THE OPERATOR FLAGS. 

I PRINT THE TEST NUMBERS? 

I BR IF NO 

iGET THE ID MESSAGE 

iDISPLAY THE TEST ID 



I BUMP TEST COUNTER. 
iPRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



.SBTTL TSTENO 



PRINT ERRORS RECEIVED 



104421 

030027 020000 

001412 

013746 016650 
012746 016652 
012746 000002 
010600 

104417 



I AT END OT EACH iE5T, PRINT THE NUMBER OF FRRORS RECEIVED 
I IF NORMAL ERROR REPORTING IS DISABLED (FLA:IER). 

TSTENQ 



RFLAGS 


RC 




TRAP 


CIRFLA 




BIT 


RO.OIER 




SEQ 


1* 


1 BR IF "IER" NOT SET # 


PRINTF 


OESUM.ERRK 


I PRINT ERROR COUNT. 


MOV 


EPHK f (SP) 




MOV 


♦ESUM.-CSP) 




MOV 


02,-CSP) 




MOV 


SP f RO 




TRAP 


CtPNTF 





E6 
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TSTEND - PRINT ERRORS RECEIVED 



SEQ 069 



2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
23<>9 
2400 
2401 
2402 
2405 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 

2414 
2415 
2416 
2417 



2418 



2419 

2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 



016642 
016646 

016650 
016652 
016671 



016736 
016742 
016744 
016750 
016752 
016756 
016760 
016764 
016766 
016770 
016772 

016774 
016776 
017002 
017004 
017010 
017014 
017020 
017022 
017030 
017032 
017032 
017034 
017040 
017042 
017050 
017050 
017052 
017054 
017056 
017060 
017060 
017064 
017066 
017066 
017070 
017072 



062706 000006 
000207 



OOOOOO 
045 
105 



010046 
013700 
006300 
016000 
042700 
020037 
103004 
023737 
103417 

104421 
032700 
001013 

012737 

104455 
000004 
016671- 
OOOCOO 

013700 
104451 

1044A4 
012600 
000207 



101 
122 



lij 

ERRK: 
040 ESltfi 
122 EMAXDU? 



I * 



ADD 
RT£ 



.ASCIZ 
.ASCIZ 
,EVEN 



06, SP 
PC 

i LOCAL ERROR COUNT. 
/KA *D*A ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 



005237 016650' 

010046 

013700 002174' 

006300 

062700 003170' 

005210 

032710 007777 

001001 

005310 

012600 

000207 



002174' 

003170' 

170000 

002166* 

016650' 002164 



000040 

177777 003104 



» ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

♦ ♦.AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE Dt *ICF ERROR COUNT 

OID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKC IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES 

NO -- DROP THE UNIT 



002174 



l - 






INCERK: 


INC 


ERRK ! 




MOV 


RO.-(SP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




ADD 


♦ERTABL.RO i 




INC 


CRO) j 




BIT 


*7777,(R0) { 




BNE 


It i 




DEC 


(RO) i 


Its 


MOV 


(SP)*.RO i 




RTS 


PC i 


CKEMAX; 


MOV 


RO.-CSP) j 




MOV 


UNITN.RO j 




ASL 


RO i 




MOV 


ERTABLCRO),RO j 




BIC 


♦170000.R0 i 




CMP 


RO.GERRMAX i 




BHIS 


11 i 




CMP 


ERRK.LERRMAX i 




BLO 


2* I 


lit 


RFLAGS 


RO j 




TRAP 


CIRFI.A 




BIT 


*IDU,RO t 




BNE 


2* i 




MOV 


♦•l.DUFLG I 




ERRDF 


.', EMAXDU 




TRAP 


CiERDF 




.WORO 


4 




.WORD 


EMAXDU 




.WORD 







DODU 


UNITN 




MOV 


UNITN.RO 




TRAP 


CiDODU 




DOCLN 






TRAP 


CIDCLN 


2ts 


MOV 


(SP)»,RO j 




RTS 


PC , 



017074 
017076 



010046 



j RESTORE RO 

l RETURN TO CALLER 

.SBTTL CKDROP - ChECK IF UNIT SHOULD BE DROPPED 

i CHECK IF UNIT SHOULD BE DROPPED 

J • 

CKDROP: MOV RO.-CSP) 

FORCERROR H.NQTSSR 



F6 
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CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



SEQ 070 



2429 

2430 
2431 
2432 
24J3 
2434 



2435 

2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
24 79 
2480 
2481 



017106 
017106 
017110 
017114 
017116 
017120 
017126 
017126 
017132 
017134 
017134 
017136 
017140 



017142 
017142 
017146 



017150 
017154 
017156 
017164 



017166 
017172 
0171^4 
017176 
017200 
017206 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004737 
000207 



005737 
001403 
012737 
00020? 



005737 
001405 
000240 
000240 
012737 
000207 



000040 

177777 

002174 



003104 



1$ 



RFLAGS 


RO 


TRAP 


C*RFLA 


BIT 


OIDU.RO 


BNE 


U 


MOV 


CSP),RO 


MOV 


♦-1.DUFLG 


DODU 


UNITN 


MOV 


UNITN.RO 


TRAP 


C*DODU 


OOCLN 




TRAP 


CIDCLN 


MOV 


CSP)*.RO 


RTS 


PC 



I ABORT THE PASS 



015664 



.SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
{ SUBROUTINE - DETERMINE CONFIGURATION OF TSU05 SYSTEM. 
CONFIG { 



003124 
000001 



JSR PC.SOFINIT 
RTS PC 

.SBTTL KTON.KTOFF 

t SUBROUTINE - ENABLE MEM MGT. 



177572 



TST 
BEQ 
MOV 
RTS 



KTFLG 
1$ 

«1,SR0 
PC 



003124 



KTON: 
1$: 

i SUBROUTINE - DISABLE MEM MGT . 



- ENABLE/DIShBLE MEMORY MANAGEMENT 



i GOT KT? 

1 NO. 

1 YES. ENABLE KT11. 



KTOFFj TST 

BEQ 

NOP 

NOP 

000000 177572 MOV 

It: RTS 



KTFLG 
1* 



<K) t SRO 
PC 



I GOT KT11? 
i NO, 



.SBTTL SETMAP 



t DISABLE KT 
SLTUP PAR6 MAPPING 



i * 

i 

iTHIS ROUTINE SETS UP KERNEL PAP6 T? HANDLE 

I AN 22 BIT ADDRESS. THE OFFSET INTO THE PAGE 

iIS RETURNED BIASED TO PAR6. 

j INPUTS} 



RO 
Rl 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



lOUTPUTS; 



G6 
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SETMAP - SETUP PARS MAPPING 

24 82 
2483 
2484 
2485 
2486 

2487 017210 

2488 017210 

2489 017214 005737 003124' 

2490 017220 001433 

2491 017222 010102 

2492 000006 
2493 

2494 
2495 

2496 017254 042701 000177 

2497 017260 02C137 003124' 

2498 017264 103011 

2499 017266 010137 172354 

2500 017272 042702 160000 

2501 017276 062702 140000 

2502 017302 010200 

2503 017304 000261 

2504 017306 000401 

2505 017310 000241 

2506 017312 000207 
2507 

2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 

2524 017314 

2525 017314 

2526 017320 004737 017166' 

2527 01"V324 010003 

25L X 8 017326 013701 003116* 

2529 017332 013702 003120* 

2530 017336 010321 

2531 017540 005302 
2332 017342 003375 

2533 017344 005737 003124* 

2534 017350 001502 

2535 017352 004737 017150' 

2536 017356 005000 

?537 017360 013701 003144* 
?.'538 000006 
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SEQ 071 



J 
{ 
J 

SETMAP} 



10*5 

15$: 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENDR 

BIC 

CMP 

BHI3 

MOV 

BIC 

ADO 

MOV 

SEC 

BR 

CLC 

RTS 



OFFSET INTO BLOCK UITH PAR6 BIAS CLE, THE ADDRESS) 
SET IF SUCCESS 
CLR lF ERROR 



KTFLG 

101 

R1.R2 

6 

RO 

R\ 

♦177, Rl 

Rl, KTFLG 
10* 

R1.S0KIPAR6 
0160000, R2 
0140000 ,R2 
R2.R0 

15* 

PC 



I SAVE R1-R4 UNTIL NEXT RETURN 

{SYSTEM HAVE ABOVE 28K? 

j BR IF NO 

l SAVE LOW ORDER BITS 

i CONVERT WORD ADDRESS TO 32W BLOCKS 
I MAKE IT DOUBLE PRECISION 

I ALINE FOR LOWER 4K BOUNDARY 
; HIGHER THAN EXISTING MEMORY? 
rBR IF YES 

»SETUP MAPPING REGISTER PAR6 
iSETUP DISPLACEMENT IN PAGE 
{ADD IN PAR6 BIAS 
{RETURN IN RO 
{SET SUCCESS 

I SET FAILURE 
{RETURN 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE * FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG « SET TO HIGHEST MEMORY LOCATION IF > 28K. 



j OUTPUTS: 




j NONE 




FILLMEMj 




SAVREG 




JSR 


PC.KTOFF 


MOV 


R0.R3 


MOV 


FR'.E.Rl 


MOV 


FRESIZ.R2 


10$: MOV 


R3,(Rl)f 


DEC 


R2 


BGT 


10$ 


TST 


KTFLG 


BEQ 


55$ 


JSR 


PC.KTON 


CLR 


RO 


MOV 


PST32W,R1 


>REPT 


6 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PA-TERN 

GET FIRST Fr,£E LOCATION 

SIZE OF FREE SPACE BELOW 28K , 

STORE A BACKGROUNO WORD 

OCNE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES, ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS C iti 32W BLOCKS) 
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FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



rl6 



SEQ 072 



2539 








CLC 




CLEAR C BIT 


2540 








ROL 


Rl 


COMVERT BLOCKS TO WORDS 


2541 








ROL 


RO i 


MAKE IT DOUBLE PRECISION 


2542 








.ENDR 






2543 017430 


004737 


017210' 




JSR 


PC.SETMAP 


SETUP PAR6 MAPPING REGISTER 


2544 017434 


010320 




30$; 


MOV 


R3.CR0V i 


STORE TEST PATTERN IN >28K ADDRESS 


2545 017436 


020027 


160000 




CMP 


RO, 0160000 i 


END OF PAR6 MAPPING AREA? 


2546 017442 


103774 






BLO 


30$ | 


BR IF NO 


2547 017444 


162700 


020000 




sue 


020000, RO i 


BACKUP INTO PAR6 MAPPING BEGIN 


2548 017450 


062737 


000200 172354 




ADD 


0200.S0KIPAR6 


POINT TO NEXT 4K BLOCK >28K. 


2549 017456 


013705 


003124' 




MOV 


KTFLG. R5 


GET VALUE FROM MEMORY SIZER 


2550 017462 


042705 


170000 




BIC 


0170000, R5 


ONLY 16 BITS PASS 


2551 017466 


023705 


172354 




CMP 


&OKIPAR6.R5 


END OF' MEMORY? 


2552 017472 


001427 






BEQ 


50$ 


nr< vr yes 


2553 017474 


005737 


003136* 




TST 


T23A 


fWUCESSOR TYPE A 


2554 017500 


001407 






BEQ 


35$ 


NO KEEP GOING 


2555 017502 


013704 


177572 




MOV 


SR0.R4 


GET SRO CONTENTS 


2556 017506 


042704 


177761 




BIC 


0177761, R4 


CLEAR ALL BUT PAGE NUMBER 


2557 017512 


022704 


000016 




CMP 


016, R4 


SEE IF PAGE 7 


2558 017516 


001415 






BEQ 


50$ 


EXIT IF THGRE 


2559 017520 


005737 


003140' 


35$: 


TST 


T23B 


PROCESSOR TYPE B 


2560 017524 


001410 






BEQ 


45$ 


NO KEEP GOING 


2561 017526 


023727 


172354 007600 




CMP 


00KIPAR6, 07600 


REACHED 18 BITS? 


2562 017534 


103001 






BHIS 


40$ 


lYES 


2563 017536 


000403 






BR 


45$ 


NO KEEP GOING 


2564 0175*0 


012737 


000020 172516 


40$: 


MOV 


020, SR3 


SET MMU RELOCATION 


2565 017546 


000137 


0174S4' 


45$: 


JMP 


30$ 


KEEP GOING ON ETC. 


2566 017552 


0O4737 


017166' 


50$: 


JSR 


PCKTOFF 


DISABLE KT. 


2567 017556 


000207 




55$: 


RTS 


PC 




2568 














2569 








.SBTTL 


CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 


2570 






; ♦ 








2571 

25^2 
2573 






j COMPARE MEMORY WITH A BACKGROUND PATTERN 






j INPUTS: 






2574 














2575 








RO • BACKGROUND PATTERN 




2576 








FREE 


- FIRST LOCATION 


AVAILABLE TO DIAGNOSTIC 


2577 
2578 
2579 








KTFLG 


- SET TO HIGHEST 


MEMORY LOCATION IF > 28K . 






! OUTPUTS: 






2580 














2581 








CARRY 


- SET IF NO ERROR 


2582 








CARRY 


- CLR IF ERROR 




2583 














2584 






i IMPLICIT OUTPUTS: 




2585 














2586 








errh: 


- ERROR HIGH ADDRESS 


2587 








ERRLO 


- ERROR LOW ADDRESS 


2588 








EXPO 


- EXPECTED DATA 




2589 








RECV 


- RECEIVED DATA 




2590 






i - 








2591 017560 






CMPMEM: 








2592 017560 








SAVREG 




iSAVt R1-R5 UNTIL NEXT RETURN 


2593 017564 


010003 






MOV 


R0,R3 


jCOPY TEST PATTERN 


2594 017566 


004737 


017166' 




JSR 


PC. K TOFF 


iDISABLE KT. 


2595 017572 


013701 


003116' 




MOV 


FREE.R1 


iGET FIRST FREE LOCATION 
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CMPMEN - COMPARE MEMORY TO BACKGROUND PATTERN 



16 



SEQ 073 



2596 017576 


013702 


003120' 


2597 017602 


020311 




2598 01760** 


001411 




2599 017606 


010137 


002232' 


2600 017612 


005037 


002230' 


2601 017616 


010337 


002224' 


2602 017622 


011137 


002226' 


2603 017626 


000474 




2604 017630 


005721 




2605 017632 


005302 




2606 017634 


003362 




2607 017636 


005737 


003124' 


2608 017642 


001472 




2609 017644 


004737 


017150' 


2610 017650 


005000 




2611 017652 


013701 


003144' 


2612 


000006 




2613 






2614 






2615 






2616 017706 


042701 


000177 


2617 017712 


010046 




2618 017714 


010146 




2619 017716 


004737 


017210' 


2620 017722 


010004 




2621 017724 


012601 




2622 017726 


012600 




2623 017730 


020314 




2624 017732 


001411 




2625 017734 


010037 


002230' 


2626 017740 


010137 


002232' 


2627 017744 


010337 


002224' 


2626 017750 


011437 


002226* 


2629 017754 


00O421 




2630 017756 


062701 


000002 


2631 017762 


005500 




2632 017764 


062704 


000002 


2633 017770 


020427 


160000 


2634 017774 


103755 




2635 017776 


162704 


020000 


2636 02000.? 


062737 


000200 172354 


2637 020010 


023737 


172354 003124' 


2638 020016 


101744 




2639 020020 


004737 


017166' 


2640 020024 


000241 




2641 020026 


000403 




2642 020030 


004737 


017166' 


2643 020034 


000261 




2644 020036 


000207 




2645 






2646 






2647 






2648 






2649 






2650 






2651 






2652 







MOV 


FRESIZ.R2 i 


10$: CMP 


R3.CR1) i 


BEQ 


15$ i 


MOV 


Rl.ERRLO i 


CLR 


ERRHI i 


MOV 


R3.EXPD : 


MOV 


(Rl).RECV i 


BR 


50$ : 


15$: TST 


CRD* i 


DEC 


R2 j 


8GT 


10$ i 


TST 


KTFLG j 


BEQ 


55$ i 


JSR 


PC.KTON i 


CLR 


RO j 


MOV 


PST32W.R1 i 


.REPT 


6 


ROL 


Rl i 


ROL 


RO » 


,ENOR 




BIC 


0177, Rl » 


MOV 


RO.-CSP) i 


MOV 


Rl.-CSP) j 


JSR 


PC<SETMAP i 


MOV 


R0.R4 j 


MOV 


(SP)*,R1 i 


MOV 


(SP)*,RO i 


30$; CMP 


R3,(R4) j 


BEQ 


32$ i 


MOV 


RO, ERRHI i 


MOV 


Rl.ERRLO i 


MOV 


R3.EXPD i 


MOV 


^4),RECV i 


BR 


50* j 


32$: ADD 


02. Rl » 


ADC 


RO > 


ADD 


02, R4 , 


CMP 


R4, 0160000 i 


BIO 


30$ j 


SUB 


020000, R4 i 


AOD 


0200.DOKIPAR6 i 


CMP 


S0KIPAR6, KTFLG i 


BLOS 


30$ i 


50$: JSR 


PC.KTOFF j 


CLC 




BR 


60$ j 


55$: JSR 


PC, K TOFF j 


SEC 




60$: RTS 


PC 



SIZE OF FREE SPACE BELOW 28K. 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS CIN 32W BLOCKf ) 

CONVERT BLOCKS TO UOROS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNOARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY AOORESS BIASED TO PAR6 

RESTORE LOW ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDEK IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 

SAVE LOW ORDER IN ERROR 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AREA? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 

POINT TO NEXT 4K BLOCK >28K, 

ENO OF MEMORY? 

BR IF NO 

TURN OFF MEMORY MAPPING 

SET FAILURE 

TURN OFF MEMORY MAPPING 
SET SUCCESS 



.SBTTL REGSAV 



SAVE R1-R5 ON STACK 



: ♦ 

tROUIINE TO 

I SAVE Rl THROUGH R5 ON THE STACK 

{CALLING SEQUENCE: 



J6 
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REGSAV - SAVE R1-R5 ON STACK 

2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 

2666 020040 

2667 020040 010446 

2668 020042 010346 

2669 020044 010246 

2670 020046 0J.0146 

2671 020050 03.0546 

2672 020052 016605 000012 

2673 020056 004736 

2674 020060 012601 

2675 020062 012602 

2676 020064 012603 

2677 020066 012604 
2676 020070 012605 
2679 020072 000207 
2680 

2681 
2682 
2683 
2684 
2685 
2686 
2687 
2668 
2669 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 



Ol-FEB-84 18:55 



SEQ 074 



020074 
020074 

020100 
020100 
020102 
020104 
020106 
020110 
020112 
020114 



104443 

000406 

020130' 

000022 

020132' 

0003 7 7 

000000 



; JSR R5, REGSAV 

i THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 

;THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 

; THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

jREGISTERS. 

I 

jTHlS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 

i CALLED VIA A JSR PC INSTRUCTION 

i 

i - 

REGSAV t 



MOV 


R4, -CSP) 


MOV 


RS.-CSP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CSP) 


MOV 


RS.-CSP) 


MOV 


10.(SP),RS 


JSR 


PC.8CSP)* 


MOV 


CSP)*,R1 


MOV 


(SP)*,R2 


MOV 


CSP)*,R3 


MOV 


CSP)*,R4 


MOV 


(SP)f,R5 


RTS 


PC 



.SBTTL GETPAT 



GET 8 BIT PATTERN FROM OPERATOR 



ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC, GETPAT 



GETPAT:: 




SAVREG 


i SAVE THE GENERAL REGISTERS 


1$: GMANID 


DATASC.PATDAT, 0,377, 0,377, NO 


TRAP 


CtGMAN 


BR 


100001 


.UORO 


PATDAT 


.WORD 


TICOOF. 


.WORD 


DATASC 


.WORD 


377 


.WORD 


T$L0L1M 



I<6 



TSV3 - GLOBAL AREAS 


MACRO M 


GETPAT 


- GET 8 


BIT PATTERN FRO 




020116 


000377 






020120 






2703 


020120 








020120 


103367 




2704 


020122 


013700 


020130' 


2705 


020126 


000207 




2706 








2707 








2708 








2709 








2710 








2711 


020130 


000000 




2712 


020132 


105 


116 


2713 








2714 








2715 








2716 








2717 








2716 








2719 








2780 








2721 








2722 








2723 








2724 








2,25 








2726 








2727 








2728 








2729 








2730 








2731 








2732 


020156 






2733 


020156 






2734 


020162 


010002 




2735 


020164 


010203 




2736 


020166 


005713 




2737 


020170 


0014U 




2738 


020172 








020172 


012346 






020174 


012746 


020342* 




020200 


012746 


000002 




020204 


010600 






020206 


104417 






020210 


062706 


000006 


2739 


020214 


0007*4 




2740 


020216 








020216 


104443 






020220 


000406 






020222 


020376' 






020224 


000042 






020226 


02034 7' 






020230 


177777 






020232 


000000 






020234 


177777 






020236 






2741 


020236 







M1113 01-FEB-84 18:55 
OPERATOR 



SEQ 075 



10000 $ j 



.WORD T$HILIM 

BNCOMPLETE It 
BCC 1* 
MOV PATDAT.RO 
RTj PC 



jRETRY IF ERROR 

iDATA PATTERN FROM OPERATOR 
t RETURN TO CALLER 



! LOCAL DATA AREA 
i - 

PATDAT: .WORD 



124 DATASC: .ASCIZ 'ENTER DATA PATTERN' 
.EVEN 



I TEMPORARY STORAGE FOR DATA 



.SBTTL GETSEL 



ISSUE MENU AND GET OPERATOR RESPONSE 



5 ♦ 



ROUTINE TO ISSUE A MENU AND GET 
THE OPERATOR'S RESPONSE. 



INPUTS: 

RO 
Rl 

OUTPUTS: 

RO 



ADDRESS OF ASCIZ STRING OF MENU 
MAXIMUM ALLOWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSEL 



U 
2$ 



3$ 



10001 g 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

'iMANID 

TRAP 

BR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 



R0.R2 

R2 . R3 

(R3) 

3$ 

*SELASC,(R3)> 

CR3)>.-CSP) 

#SELASC,-(SP) 

♦2.-CSP) 

SP.RO 

CiPNTF 

06, SP 

2* 

MENASC.MENRES.D, 

CIGMAN 

10001$ 

MENRES 

T I CODE 

MENA5C 

-1 

TILOLIM 

TIHILIM 



j SAVE GENERAL REGISTERS 

;SAVE THE MENU ADDRESS 

, START OF MENU STRING 

jENO OF ASCII ? 

»BRANCH IF ALL LINES DISPLAYED 

I DISPLAY THE MENU 



1,0,-1, NO 



BNCOMPLETE 



1$ 



» RE TRY IF ERROR 



L6 



TSV3 - GLOBAL AREAS 
GETSEL - ISSUE MENU 



MACRO M1113 Ol-FEB-O* 18:55 
ANO GET OPERATOR RESPONSE 



SEQ 076 



2742 
2743 
2744 
2745 



2746 
2747 
2748 
2 749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 

2779 

2780 



020236 
020240 
020244 
020146 
020250 
020250 
020254 
020260 
020262 
020264 
020270 
020272 
020274 
020342 
020347 



2781 
2782 
2783 
2784 
2785 



020400 
020400 
020404 
020404 
020406 
020406 
020410 
020410 
020414 
020420 
020422 
020424 
020430 
020432 

020434 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020376 000000 



020376 



020274 
000001 



000004 



116 
116 
156 



5$: 

045 MENERR 
045 SELASC 
164 MENASC 

MENRES: 



i * 



BCC 

MOV 

CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

RTS 

.ASCIZ 

.ASC1Z 

.ASCXZ 

.EVEN 



1* 

MENRES, RO 

R0.R1 

5% 

♦MENERR 

♦MENERR, -(SP) 

ftl.-CSP) 

SP,RO 

CiPNTF 

♦4,SP 

1$ 

PC 

•UN* A *** Menu 

•*N*T' 



iGET THE OPERATOR'S REPLY 
j COMPARE TO MAXIMUM ALLOWED 
i BRANCH IF OK 
j DISPLAY ERROR MESSAGE 



jRETRY 

, RETURN TO CALLER 
Selection Too Large *** 



'Enter Menu Selection: 
. WORD 



.SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 



INPUT: 



NONE. 



OUTPUT : 

CARRY 

SIDE EFFECTS: 




1 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED, 



CHKMAN: 



104450 

103411 

012746 020434 

012746 000001 

010600 

104417 

062706 000004 

000241 

000207 

045 116 



SAVREG 

MANUAL 

TRAP CJMANI 

BC0MPLET£ II 



045 



It: 

NOMAN: 



BCS 

PRINTF 

MOV 

MOV 

MOV 

TIA.o 

ADD 

CLC 

RTS 

,ASCIZ 
.even 



1$ 

WOMAN 

♦NOMAN.-(SP) 

♦1,-CSP) 

SP,RO 

CIPNTF 

♦4.SP 

PC 



tSAVE THE REGISTERS 

iSEE IF MANUAL INTERVENTION OK 

l BRANCH IF ALLOWED 

j PRINT THE WARNING MESSAGE 



;CLEAR CARRY FOR ERRCN 
i RE TURN 



**N*A ++* Manual Intervention not Allowed - Test Aborted *** 



TS\/3 - GLOBAL AREAS MACRO Mil 13 Ql-FFR-84 18-55 
CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



M6 



SEQ 077 



2786 
2787 
2788 
2789 
2790 
2791 

2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
?822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2859 
2840 
2841 



.SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



020530 
020530 
020532 
020536 
020544 
020550 
020556 
020562 
020570 
020572 
020574 
020600 
020604 
020610 
020614 



020616 
020616 
020622 
020626 
020634 
020636 
020644 
020646 
020652 
020660 
020664 
020666 
020674 
020702 
020706 
020710 
020714 
020722 
020724 
020730 
020734 
0207 36 
020742 

020744 
02^750 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



005037 
005037 
023727 
101453 
023727 
101447 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
00136/ 
012741 
000410 

012716 
000002 



003116' 

000002 0031 16 ' 

003120' 

000004 003120 

002012' 

000007 003120 



003116 
003120 
000002 
003122 



ENVIRNt MEMORY 
TRAP 
MOV 
ADO 
MOV 
SUB 
MOV 

10$: SUB 
OEC 
BNE 
MOV 
ADO 
SUB 
MOV 
RTS 



40$ 



{ ♦ 

J 



RO 

CtMFM 

RO.FREE 

02, FREE 

CRO.FRCSIZ 

04,FRESIZ 

L$UNIT,R2 

07,FRESIZ 

R2 

10$ 

FREE,RO 

FRESIZ.RO 

02, RO 

RO,FREEHI 

PC 



t GET 1ST FREE ADDRESS,. , 

1 . . . AND WORD COUNT , 

i GET NUMBER OF UNITS 

I TAKE AWAY 7 WORDS PER UNIT 



j GET FIRST FREE ADDRESS 

I POINT TO LAST FREE ADDRESS 

j BACKUP 1 WORD 

i STORE LAST FREE ADDRESS 

, RETURN 



, SBTTL KT1NIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 



003124' 
C03126' 
002120' 001577 

002120' 001777 

000004 

020744' 000004 
177572 

002120* 003124' 
000177 003124' 
000004 

172340 

077406 177740 

00^200 
002000 

177600 



020760' 



; ROUTINE TO INIT KT-11 

5 



KTINIT; 



1$: 



020752 012716 021006 



2$: 



3$: 



CLR 


KTFLG 


INIT >28K MEMORY FLAG 


CLR 


KTENABLE j 


INIT TEST >28K FLAG 


CMP 


L$HIME, 01577 


GOT ENOUGH MEMORY (>28K)7 


BLOS 


9$ 


NO. 


CMP 


LIHIME, 01777 


GOT ENOUGH MEMORY (>32lO? 


BLOS 


9* 


NO. 


MOV 


QCERRVECRO 


SAVE OLD ERR VEC PTR. 


MOV 


02$,aOERRVEC 


SET ERR VEC PTR. 


TST 


80SRO 


GOT KT11? 


NOP 




CTRAP IF NO). 


MOV 


HHIMC, KTFLG 


YES. SET KT FLAG. 


CIC 


0177, KTFLG 




MOV 


R0.80ERRVEC 


RESTORE OLD ERR VEC PTR. 


CLR 


RO 


RO - AR DATA. 


MOV 


OKIPAR0.R1 


Rl - M REGS PTR. 


MOV 


077406, -40CR1) 


SET DESCRIPTOR REG. 


MOV 


R0.(R1)» 


SET KIPAR REG. 


ADD 


0200.R0 


BUMP AR DATA BY »4K " , 


CMP 


RO, 02000 


AT "I/O"? 


BNE 


1$ 


NO. 


MOV 


0177600, -CR1) 


\ YES. SET KTPAR7 FOR I/O. 


BR 


9$ 




MOV 


06$,CSP) 


\ SET UP RETURN 


RTI 




RTI TO NEXT LOCATION 


MOV 


010$, CSP) 


5 SET UP RETURN 



TSV5 - GLOBAL AREAS 
KTINIT 



BAL AREAS MACRO M1113 01-FEB-84 18:55 
SETUP KT11 MEMORY MANAGEMENT REGISTFRS 



N6 



SEQ 078 



2842 020756 


000002 








RTI 




{ RTI 


TO NEXT LOCATION 




2843 






















2844 020760 


010037 


000004 


6$; 


MOV 


R0.Q4ERRVEC 


j RESTORE 


OLD ERR VEC PTR. 




2845 






















2846 020764 






9ii 














2847 020764 


013700 


000004 






MOV 


StfERRVEC.no 


j SAVE OLD ERR VEC PTR. 




2848 020770 


012737 


020752' 


000004 




MOV 


*3*,6)0ERRVEC 


\ SET 


ERR 


VEC PTR. 




2849 020776 


042737 


000001 


170200 




SIC 


tfBITO.SMMMRO 


j BE SURE UNIBUS MAP IS OFF 




2850 021004 


000240 








NOP 












2851 021006 


010037 


000004 


10$: 


MOV 


RO,5)0ERRVEC 


j RESET VECTOR BACK TO ERROR POINTER 




2852 021012 


000207 








RTS 


PC 










2853 






















2854 






















2855 








* 














2856 
2857 
2858 










SUBROUTINE TO SET EXTENDED FEATURES SWITCH 












Requires that SOFINIT and WRTCHR have been done previous to call. 




2359 






















2860 






















2861 








INPUTS 


; 












2862 










R5 


CURRENT UNIT NUMBER 








2863 








OUTPUTS: 












2864 










The E> 


tended Features Switch 


is set. 




2865 






















2866 








m 














2867 






















2868 021014 






* 


CNVERT; 


• 












2869 






















2870 021014 


005737 


002220' 






TST 


EXTFEA 




• 


IS SWITCH SET? 




2871 021020 


001020 








BNE 


1$ 




j 


YES, EXIT STAGE RIGHTJCor the next one 


outa town! ) 


2872 021022 


012737 


100206 


021070' 




MOV 


100206, CMOPKT 




i 


WRT SUB -SYS MEM CMD 




2873 021030 


012737 


021100' 


021072' 




MOV 


0WSM8K,CMDPKT*2 




» 


MSG BUF AODR 




2874 C21036 


01273? 


00000€ 


021076' 




MOV 


*6,CMDPKT*6 




I 


BYTE COi'NT 




2875 021044 


012737 


100010 


021100' 




MOV 


4100010 .USMBK 




i 


INVERT THE SWITCH 




2876 021052 


012704 


021070' 






MOV 


0CMDPKT.R4 




< 


SET CMDPKT INTO R4 




2877 021056 


004737 


010552' 






JSR 


PC, WRTCHR 




I 


DO IT 




2878 021062 


000207 






U: 


RTS 


PC 




t 


RETURN 




2879 






















2880 






















2881 








• 


COMMAND PACKET. 










£862 






















2884 021064 










.BLKB 


10-<. -TSV2S7> 










2886 






















2887 021070 


000000 




( 


:mdpi<T: 


: 




jlST 


WORD 


IS TS05 COMMAND. 




2888 021072 


OOOOOO 













.2ND 


WORD 


IS THE BUFFER LOW ADDRESS. 




2889 021074 


000000 













j 3RD 


WORD 


IS THE BUFFER HIGH ADDRESS. 




2890 021076 

2891 

2892 


000000 













}4TH 


WORD 


IS THE BYTE/RECORD/FILE COUNT. 
























2893 








1 


WRITE 


SUB-SYSTEM MEMORY 


CHARACTERISTIC 3L0CK. 




2894 






















2?95 021100 


ooooco 




\ 


JSMBK : j 







J 1ST 


WORD 


: : SEL 




2396 021102 


000000 













j 2ND 


WORD 


: i SEL 2 




2897 021104 


000000 













i3RD 


WORD 


: . SEL 4 




2898 










.EVEN 












2899 






















2900 








i * 















B7 



TSV3 GLOBAu AREAS 


MACRO Ml 113 01 


-FEB-84 


18:55 




SEQ 079 


KTINIT 


- SETUP 


KTli MEMORY MANAGEMENT 


REGISTERS 






2901 












SUBROUTINE TO CHECK WETHER OR N01 


r UE'LL TEST NXM 


2902 


















2903 


















2904 










I INPUTS 


i 






2905 










i OUTPUTS j 






2906 












Th« NXMFLG i« mmt if mi cm t««t . 




2907 












Th« NXMLO and NXMHI addr*«s*« ar« «€tup, 


2908 










i - 








2909 


















2910 


021106 








MENCKj* 








2911 


















2912 


021106 










SAVREG 




SAVE THE REGISTERS 


2913 


021112 


005037 


003150' 






CLR 


NXMFLG 


CLEAtf THE FLAG 


2914 


021116 


005037 


003132* 






CLR 


NXMLO i 


CLEAR THE TEST ADDRESS LO 


2915 


021122 


005037 


003134' 






CLR 


NXMHI 


CLEAR THE TEST ADDRESS HI 


2916 


021126 


032737 


170000 


002120' 




BIT 


• 170000, LIHIME | 


CHECK FOR MORE THAN 18 BITS INOICATED 


2917 
















FROM THE SUPERVISOR 


2918 


021134 


001050 








BNE 


141 | 


BR, IF MAP BOX ETC. 


2919 


021136 


005737 


003140' 






TST 


T23B 


IS IT A PROCESSOR TYPE B? 


2920 


021142 


001407 








BEQ 


1* 1 


NO 


2921 


021 144 


023727 


G02120' 


007777 




CMP 


LIHIME, #7777 


GREATER THAN 128K 


2922 


021152 


103406 








BLO 


21 


NO 


2923 


021154 


00473? 


021 302 ' 






JSR 


PC.NXMTST 


SETUP THE ADDRESS 


2924 


021160 


000427 








BR 


131 


SET THE FLAG AND EXIT 


2925 


021162 


00573? 


003136' 




1$: 


TST 


T23A 


IS IT A PROCESSOR TYPE A? 


2926 


021166 


001413 








BEQ 


4$ 


NO 


2927 


021170 


023727 


002120' 


005 ">77 


2$: 


CMP 


LIHIME,#5777 


GREATER THAN 96K 


2928 


021176 


101027 








BHI 


141 


YES.23A/23B WITH 12&K MEMORY 


2929 


021200 


023727 


002120' 


003777 




CMP 


LIHIME, 03777 


GREATER THAN 64K BUT LESS THAN 92K? 


2930 


021206 


103403 








BLO 


41 


NO, CHECK 24K 


2931 


021210 


004737 


021302' 






JSR 


PC.NXMTST 


SETUP THE ADDRESS 


2932 


021214 


000411 








BR 


131 


SET THE FLAG ANO EXIT 


2933 


021216 


023727 


002120' 


001577 


41} 


CMP 


L*HIME.*1577 


GREATER THAN 24K BUT LESS THAN 64K? 


2934 


021224 


103414 








BLO 


141 


NO. TELL THEM ANO EXIT WITH FLAG CLEAR 


2935 


021226 


004737 


021302' 






JSR 


PC.NXMTST 


SETUP THE ADORESS 


2936 


021232 


062737 


000077 


003134' 




ADD 


♦77, NXMHI 


(FOOL THE 11/02 6 11/03 


2937 


021240 


032737 


177774 


003134* 


13li 


BIT 


•177774, NXMHI 


[ANY MORE THAN 18 BITS SET? 


2938 


021246 


001014 








BNE 


151 


( BR. IF MORC THAN 18 BITS SET 


2939 


021250 


005257 


003130' 






INC 


NXMFLG 


l SET THE FLAG 


2940 


021254 


000411 








BR 


151 


|EXIT 


2941 


021256 


000*10 






14$; 


BR 


151 


iNOP FOR PRINTOUT 


2942 


021260 










PRINTF 


♦NOMEM 


I TELL THEM C EXIT ***NG PRINT***** 




021260 


012746 


005450' 






MOV 


•NOMEM, -(SP) 






C21264 


012746 


000001 






MOV 


• l.-(SP) 






Odl270 


010600 








MOV 


SP.RO 






021272 


104417 








TRAP 


CflPNTF 






021274 


062706 


QQQQQA 






ADD 


•4.SP 




294 3 
2944 
2945 


021300 


000207 






151: 


RTS 


PC 


»RETURN 


















2946 










I » 








294 7 

2948 
2949 

2950 
2951 












SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 










l OUTPUT SiNXMLO, 


NXMHI j SETUP WITH NXM ADDRESS 










! . 








2952 



















C7 
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2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 



021302 
021306 
021S12 

021316 



021334 



021364 

021370 
021374 



021376 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 
010237 
000207 



002120' 

000200 

000177 



003132 



177700 
003134 



NXMTSTj 



SEG 080 



MOV 


L$HIME,R1 


ADD 


0200, Rl 


BIC 


0177, Rl 


MOV 


R1.R2 


.REPT 


6 


ASt 


Rl 


.ENOR 




MOV 


Ri»NXMLO 


♦ REPT 


10. 


ASR 


R2 


.ENOR 




BIC 


0177700. R2 


MOV 


R2.NXMHI 


RTS 


PC 



|GFT TOP OF MEMORY 

I MAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

»PUT IN PLACE FOR XFER 

l SAVE TEST ADDRESS LOW 

I PUT IN PLACt FOR XFER 

I DON 1 r UANT ILAJ 

I SAVE TEST ADDRfcSS HIGH 

I RETURN 



ENDMOD 
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SEQ 061 



6 

7 
8 

9 
15 
16 
17 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 

37 
38 
39 
40 
41 



42 

4J 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



54 



55 
56 



021376 
021376 



021376 
021376 
021376 
021406 



021406 
021406 
021406 
021412 
021416 
021424 
021430 
021434 
021440 
021440 
021444 
021446 
021446 
021450 
021136 
021460 
021464 
021466 
021472 
021474 
021500 
021502 
021510 
021512 
021512 
021!>14 
02x516 
021516 
0?1522 
021524 
C21524 
021526 



005037 
005037 
012737 
005037 
CO50^7 
005037 

012700 
104447 

103023 
023737 
103070 
005737 
100472 
013701 
006301 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
10444 7 

103052 



TSV4j; 



.TITLE TSV4 - MISCELLANEOUS SECTIONS 
BGNMOD TSV4 



.SBTTL PROTECTION TABLE 
BGNPROT 
L*PROT;i 
177777 177777 177777 .WORD -1, -1, -1, -1 

ENOPROT 

♦SBVTL INITIALIZE SECTION 



jNO DEVICE PROTECTION REQUIRED 



♦ ♦ 



THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
AT THE BEGINNING OF EACH PASS, 

IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT. 
IF "CONTINUE"* NOTHING IS REQUIRED. 



INSERT TEMPORARY JUMP TO ODT 



002220' 

003130' 

006166' 002172 

003146' 

003126' 

002274' 

000036 



002174' 002012' 

00310*' 

002174' 

003170' 

040000 00317 0' 



LIINlTi 
40* s 



EXTFEA 

NXMTLG 

0EPRT1.EPRTSW 

SIFLAG 

KTENABLE 

RAMSIZ 

*EF, CONTINUE 

*EF. CONTINUE, RO 

CIREFG 



000035 



1$ 



BGNINIT 

CLR 

CLR 

MOV 

CLR 

CLR 

CLR 

REAOEF 

MOV 

TRAP 

BNCOMPLETE 1$ 

BCC \% 

CMP UNITN,L*UNIT 

BHIS 4t 

TST DLFLG 

BMI NXTU 

MOV UNITN.R1 

ASL Rl 

TST ERTABLCR1) 

BEQ SETU 

BIT •BIT14,F.RTABL(R1) 

BNE NXTU 

EXIT INIT 

TRAP C$EXIT 

.WORD L10030-. 

READEF *EF, NEW 

MOV OEF.NEW.RO 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF GEF, START 



I SET UP PRIMARY MESSAGE FOR REPLACEMENT 

{CLEAR "SOF r INIT" FLAG 

I CLEAR TEST ABOVE 28K FLAG 

I CLEAR RAM SIZE FOR RAMERR ROUTINE 



I UNIT IN RANCc' 
iBR IF NO. 
j DROPPED uuriy 
iBR IF YES 



j DROPPED? 

iDO NOTHING IF "CONTINUE". 



j TAKE NEXT UNIT IF NOT NEW PASS. 
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SEQ 082 



5? 
58 



59 

60 
61 

62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 

66 

87 
88 
89 
90 

91 

92 
93 
94 
95 
96 
97 
98 

99 

100 
101 



021526 
021532 
021534 
021534 
021536 
021536 
021542 
021544 
021544 
021546 
021546 
021546 
021550 
021554 
021560 
021564 



021570 
021574 
021574 
021602 
021606 
021612 
021616 
021620 
021624 
021626 
021630 
021634 

0216*0 
021640 
021646 
021652 
021652 
021654 
021660 
021666 
021670 
021676 
021700 
021700 
021702 
021704 
021704 
021712 
021714 
021720 
021722 
021722 
021724 
021730 

021732 
021732 



012700 
104447 

103404 

012700 
104447 

103031 



104433 
005037 
005037 
005037 
005037 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012*:' 37 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 



0C0O40 



000037 



002206' 
002214- 
003136' 
003140 1 



005037 003372 



177777 
020530 
020616 
003170' 

003370' 



002176' 
021704' 



177777 
002212 



002174 
002174 



002176* 



002174 



002012 



177777 003104 



002012' 
002212' 

000100 



000001 





MOV 


OEF.START.RO 




TRAP 


C$REFG 




BCOMPLETL 2$ 




BCS 


2$ 




READEF 


OEF. RESTART 




MOV 


OEF. RESTART ,R0 




TRAP 


C$REFG 




BNCOMPLETE 31$ 


2$: 


BCC 


31$ 


8RESET 






TRAP 


C$RESET 




CLR 


TSTCNT 




CLR 


FATFLG 




CLR 


T23A 




CLR 


T23B 


J 


MOV 


0340, -CSP) 


i 


MOV 


020$, -CSP) 


t 


JMP 


O.ODT 


20$; 


CLR 


SKIPT 


MOV 


0-1, QVP 




JSR 


PC.ENVIRN 




JSR 


PC.KTINIT 




MOV 


OERTABL.RO 


30$: 


CLR 


CRO)* 




CMP 


RO.OERTABE 




BLO 


30$ 




BR 


4$ 


31$: 


CLR 


QVP 




JMP 


PASRPT 


4$: 






NEUPAS: 


MOV 


0-l,UNITN 




CLR 


DEVCNT 


NXTU: 


BREAK 






TRAP 


C$BRK 




INC 


UNITN 




CMP 


UNITN»L$UNIT 




BLO 


SETU 




MOV 


O-l.DUFLG 




BR 


11$ 




DOCLN 






TRAP 


C$DCLN 


11$: 


NOP 




PASRPTj 








CMP 


L$UNIT,01 




BLOS 


NEUPAS 




TST 


DEVCNT 




BEQ 


NEWPAS 




RFLAGS 


RO 




TRAP 


C$RFLA 




BIT 


OISR.RO 




BNE 


NEWPAS 




DORPT 






TRAP 


C$ORPT 



1 1ST PASS, BUS-INI1... 
iBUS RESET. 

iNUMBER OF TESTS RUN IN PASS 
I CLEAR FATAL ERHOR COUNT 
i CLEAR PROCSSOR TYPE A FLAG 
j CLEAR PROCSSOR TYPE B FLAG 

I RETURN TO DEBUGGER 
liOSENTER THE DEBUGGER 
I CLEAR THE SUBTEST "SKIPPER" 

I... QUICK VERIFY... 

j SET ENVIRONMENT. 

I INITIALIZE KT MEMORY MANAGEMENT 

j CLEAR THE ERROR TABLE 



iGO REPORT THE STATUS 



iINIT UNIT NUMBER... 

i CLEAR COUNT OF DEVICES RUNNING 



I... AND SET NEXT UNIT NUMBER. 



{ABORT, NO MORE UNITS. 



jHOW MANY UNITS SELECTED? 
iBk IF ONLY 1 
»ARE ANY STILL RUNNING? 
i BR IF NO 



j SHOULD WE; PRINT STATISTICS 
I BR IF NO 
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INITIALIZE SECTION 



MACRO 



103 
104 
105 
106 



107 

108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 

135 
136 
137 



021734 
021736 

021736 
021736 
021742 
021744 
021744 
021746 
021752 
021756 
021760 



021766 
021772 
021776 

022002 



138 
139 
140 
141 
142 
143 
144 
145 
146 
14 7 
148 
149 



022002 
022006 
022010 
022016 
022022 
022030 
022032 
022032 
022034 
022040 
022042 
022042 
022046 
022052 
022056 
022060 
022062 
022066 
022066 
022072 
022076 
022100 
022104 
022110 
022112 
022116 
022124 



000741 



013700 002174* 
104442 

103342 

005037 003104' 

005237 002212' 

012001 

010137 002200' 



021764 012001 



010137 002202' 
012721 016106' 
013721 002204' 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



002174 
022134 

000002 



000006 

003106 
002200 

000002 
016266 

003106 
177777 



113 


01-FEB-64 


18 {55 


10$: 


BR 


NEUPAS 


SETUi 


GPHARD UNITN.RO 
MOV UNITN.RO 
TRAP CIGPHRD 
BNCOMPLETE NXTU 
BCC NXTU 
Cf.R DUFLG 
IivC DEVCNT 
MOV (RO)t,Rl 
MOV Rl.CSRAODR 




MOV 

iMOV 

(MOV 

MOV 

MOV 

MOV 


(R0)»,R1 

CR0).R2 
R2.IPRI 
Rl.IVEC 
•INTR.CRD* 

IPRI, CRD* 


lit 

i 
i 


TST 
BEU 


QVP 
5$ 



SEQ 083 



(GET UNIT N P-TABLE POINTER. 

iBR IF UNIT NOT AVAILABLE. 

I CLEAR "DROPPED" FLAG. 

(GET 1ST REGISTER ADDRESS. 

(ADDRESS OF REGISTERS OF UNIT UNDER TEST 

iGET VECTOR ADDRESS. 

;GET INTERRUPT PRIORITY 

(SET INTERRUPT PRIORITY. 

(SET INTERRUPT VECTOR POINTER... 

(...VECTOR... 

J...ANO PRIORITY. 



(1ST PASS ?? 

(NO. SKIP THE PASS 1 STUFF. 



(1ST PASS. CHECK THAT DEVICE AODRESSES ARE VALID. AND 
(THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



002174 

100000 
005600' 
002012* 000001 



001000 



10$ t 



003104 



2$: 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


$BIT15.ERTA3L(R1) 


CLR 


EXTA 


CMP 


LtUNIT.tfl 


BLOS 


10$ 


RFLAGS 


RO 


TRAP 


CtRFLA 


BIT 


OPNT.RO 


BEQ 


10 % 


PRINTF 


«PUNIT.UNITN 


MOV 


UNITN.-CSP) 


MOV 


*PUNIT.-(SP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


06, SP 


CLR 


NODEV 


MOV 


CSRADDR.R1 


MOV 


R1.R2 


ADD 


0TSSR.R2 


JSR 


PC.XNXM 


BCC 


2* 


MOV 


Rl. NODEV 


MOV 


0-1, DUFLG 



(SAY DEVICE RINNING 

(CLEAR ERROR EXTENSION FLAG. 

(ARE WE TESTING MULTIPLE UNITS? 

(BR IF NO. 

(YES -- GET OPERATOR FLAGS. 

(SHOULD WE PRINT UNIT 0? 
(CR IF NOT. 
(PRINT THE UNIT 



(ADDRESS OF FIRST REGISTER 

(START OF REGISTERS 

(ADDRESS OF TSSR REGISTER 

(TEST BOTH CONTROLLER REGISTERS,. 

(,, .AND BR IF ALL OK. 

(FLAG DEVICE AS NON-EXISTENT 

(DROP THIS UNIT. 



(FINALLY, SET CPU PRIORITY AND WE'RE DONE. 
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SEQ 084 



150 
151 



152 



155 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 

165 
166 
167 
168 

169 



170 



1/1 
172 
173 
174 



175 
176 
177 
178 
179 
160 
181 
182 
183 
184 
185 
186 

187 
188 
189 

190 



022124 
022124 
022130 
02213? 
022132 
022132 

022134 



022202 
022202 
022202 
022204 
022206 
022? 14 
022222 
022222 
022224 
022230 
022234 
022236 
022240 
022244 
022244 
022246 
022250 



022276 
022276 
022276 



022300 
022300 
022300 
022306 

022310 
022312 



012700 
104441 



104411 
045 



010001 
006301 
052761 
042761 

010046 
012746 
012746 
010600 
104417 
062706 

000167 

000026 

045 



104452 



012737 
010001 
006301 
052761 



000000 



116 



045 



100000 
040000 



022250' 

000002 



000006 



116 



003170' 
003170' 



177777 
140000 



003104 



003170 



5$j 



SETPRI 
MOV " 
TRAP 
ENDINIT 

TRAP 

.ASCIZ 
.EVEN 



OPRIOO 
OPRIOO. RO 
CISPRI 



j ENABLE INTERRUPTS, 



CIINIT 

/HN*N*A+**++ TESTING UNIT *D2*A *****,' 



L 10030: 
PUNIT: 

!*♦ 

l THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

l TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

i OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED, 

*-- 



.SBTTL ADD AND DROP UNITS SECTIONS 



LIAUi 



BGNAU 



045 Its 



MOV 


R0.R1 


ASL 


Rl 


BIS 


0100000, ERTABL(Rl) 


BIC 


040000, ERTABL(Rl) 


PRINTF 


01$, RO 


MOV 


RO.-CSP) 


MOV 


01*,-(SP) 


MOV 


02.-CSP) 


MOV 


SP,RO 


TRAP 


CiPNTF 


ADO 


06. SP 


EXIT 


AU 


,WORD 


J$JMP 


.WORD 


L10031-2-. 


.ASCIZ 


/*N*A UNIT *D*A ADDED/ 


.EVEN 




ENOAU 


> UNUSED, 


TRAP 


C$AU 



i GET UNIT TO BE ADDED CRO) 

I MAKE IT A WORD TNOEX 

i SET THE "ACTIVE " BIT 

j CLEAR THE "DROPPED" BIT 



L 10031: 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING", THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADO" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS. AND TYit P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



L*CU:: 



BGNDU 



MOV 


O-l.DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


0140000,ERTABL(R1) 



t SAY DROPPED 
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SEQ 085 



191 022320 

192 022326 
022326 
022330 
022334 
022340 
022342 
022344 

193 022350 
022350 
022352 

194 022354 
195 

196 022404 
022404 
022404 

197 

198 

199 

200 022406 
022406 

201 022406 

202 022412 

203 022416 

204 022422 

205 022424 
022424 
022430 
022432 
022436 
022440 
022444 
022446 
022452 

206 022454 

207 022456 

208 022460 

209 022464 

210 022464 
022464 
022464 

211 
212 
213 
214 
215 
216 
217 
218 

219 022466 
022466 

220 022466 

221 022472 

222 022476 
223 

224 

225 022500 



000240 000240 000240 



010046 
012746 
01?746 
0x0600 
104417 
062706 

000167 

000030 

045 



104453 



013705 
012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



240,240,240 
PRINTP «1*.R0 



l ????????? 



013705 
005737 
100405 



022354 
000002 



000006 



116 



045 1$: 



002200' 

000550 

016140' 



000372 
00211b' 
177772 
177756 

017074 ' 



002200' 
003104' 



L 10032: 



MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

EXIT 

.WORD 

.WORD 

.ASCIZ 

.EVEN 

ENODU 

TRAP 



RO,~CSP) 

0H.-C3P) 

*2,-CSP) 

SP.RO 

CIPNTF 

06, SP 

DU 

JUMP 

L 10032 -2-. 

/*NtfA UNIT *D*A DROPPED/ 



C*DU 



♦ ♦ 



j AUTO-DROP CODE SECTION. 

BGNAUTO 
Li AUTO i 

10$j 



20$: 
L10033{ 



MOV 

MOV 

JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 



CSRADDR.R5 

0360., R3 

PC.WAITF 

20$ 

250. 

•250.,<PC)» 



L*DLY,(PC)» 



-6(PC) 

.-4 

-22CPC) 

.-20 

R3 

10$ 

PC.CKDROP 



iPOINT TO DEVICE REGISTER 

I ENOUGH TIME FOR 2400' REEL TO REWIND 

;WAIT FOR SSR TO SET 

I LEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONDS 



iBUMP COUNTER DOWN 

iKEEP GOING 

j TRY AND DROP UNIT 



ENDAUTO 

TRAP CIAUTO 



j UNUSED. 



.SBTTL CLEAN-UP AND REPORT CODING SECTIONS 

j THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS 

i EXECUTED AT THE END OF EACH PASS COR SLtt-PASS). 

1 USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 

BGNCLN 
LJCLEANj: 

MOV 
TST 
BMI 



CSRADDR.R5 

DUFLG 

U 



012765 000000 000002 



MOV 



00.TSSRCR5) 



iPOINT TC DEVICE REGISTER 
j "DROPPED" FLAG IS SET ON... 
I... AND GROSS CONTROLLER FAULT... 
I... DON'T TRY TO SCT CLEANUP CODE, 

lOO SOFT INIT 
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SEQ 086 



226 


022506 


004 737 


016140 1 


227 


022512 






228 


022512 
022512 








022512 


104412 




229 








250 








231 








232 








233 


022514 
022514 






234 


022514 








022514 


012746 


022756 




022520 


012746 


000001 




022524 


010600 






022526 


104416 






022530 


062706 


000004 


235 


022534 


010246 




236 


022536 


010346 




237 


022540 


010446 




238 


022542 


012704 


003170 


239 


022546 


005003 




240 


022550 


011402 




241 


022552 


001467 




242 


022554 


100066 




243 


022556 


032702 


040000 


244 


022562 


001015 




245 


022564 


042702 


170000 


246 


022570 








022570 


010246 






022572 


010346 






022574 


012746 


023013 




022600 


012746 


000003 




022604 


010600 






022606 


104416 






022610 


062706 


000010 


24 7 


022614 


000446 




248 


022616 


020227 


160000 


249 


022622 


001012 




250 


022624 








022624 


010346 






022626 


012746 


023063 




022632 


012746 


000002 




022636 


010600 






022640 


104416 






022642 


062706 


000006 


251 


022646 


000431 




2.52 


022650 


020227 


160001 


253 


022654 


001012 




254 


022656 








022656 


010346 






022660 


012746 


023145 




022664 


012746 


000002 




022670 


010600 






022672 


104416 






022674 


062 706 


000006 


255 


C22700 


000414 







JSR 


PC.WAITF 


lit 






2$: 


ENDCLN 




L10034; 








TRAP 


CICLEAN 



i THE REPORT COOING SECTION CONTAINS THE 

{ "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS. 



L$RPT: 



1* 



2$; 



3i 



BGNRPT 

PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

MOV 

MOV 

MOV 

Ct.R 

MOV 

BEQ 

BPL 

BIT 

BNE 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

CHP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 



OOEVSUM 

OOEVSUM, -CSP) 

•1,-CSP) 

SP.RO 

CiPNTS 

04, SP 

R2.-CSP) 

RS.-CSP) 

R4.-CSP) 

OERTA8L,R4 

R3 

(R4),R2 

4* 

4$ 

0BIT14,R2 

2* 

OtC7777.R2 

00EV0NL.R3.R2 

R2.-CSP) 

R3.-CSP) 

OOEVONL.-(SP) 

03, -CSP) 

SP.RO 

CIPNTS 

010, SP 

4$ 

R2, 0160000 

3$ 

00EVNXR,R3 

R3.-CSP) 

OOEVNXR, -(5P) 

♦2.-CSP) 

SP . RO 

CiPNTS 

*6,SP 

4$ 

R2, 0160001 

30* 

OOEVNR0.R3 

R3,-(SP) 

OOEVNRD.-CSP) 

02,-CSP) 

SP.RO 

CIPNTS 

06, SP 

4$ 



GET START Of ERROR TABLE. 
CLEAR UNIT NUMB!":: 
GET ERROR TABLE ,.NTRY € TEST IT. 
ZERO IF UNIT NOT RUN 

WAS UNIT DROPPED? 

BR IF YES 

GET ERROR COUNT FIELD 

PRINT 



i WAS UNIT NON-EXISTENT? 
I BR IF NO 



i WAS UNIT NOT READY AT STARTUP? 
j BR IF NO. 



J7 



TSV4 - MISCELLANEOUS SECTIONS MACRO ii!113 
CLEAN-UP ANO REPORT COOING SECTIONS 
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SEQ 087 



?f>6 022702 

257 022706 
022706 
022710 
042712 
022716 
022722 
022724 
022726 

258 022732 

259 022736 

260 022740 
251 022744 

262 022746 

263 022750 

264 022752 

265 022754 
022754 
022754 

266 
267 

268 022756 

269 023013 

270 023063 

271 023145 

272 023226 
273 

274 

275 023276 

276 

27? 

278 



042702 170000 



010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



30$; 



023226 
000003 



000010 
000002 

003370' 



4$: 



116 
101 

101 

io: 

101 



L 10035: 



045 DEVSUM 

04<?> DEVONL 

040 DEVNXR 

040 DEVNRD 

040 DFVDRO 



BIC 


OtC7777,R2 


PRINTS 


*OEVDR0,R?,R2 


MOV 


R2.-CSP) 


MOV 


R3.-CSP) 


MOV 


*OEVDRO,-(SP) 


MOV 


*3,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTS 


ADD 


O10.SP 


ADD 


#2,R4 


INC 


R3 


CMP 


R4.0ERTABE 


BLO 


1$ 


MOV 


CSP)*,R4 


MOV 


(SP)*,R3 


MOV 


(SP)*,R2 


ENDRPT 


I UNUSED. 



TRAP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

ENOMOD 



C*RPT 



/«N*ADEVICE STATUS SUMMARY S #N/ 

/*A WIT *D3*A ONLINE. ERRORS • *D#N/ 

/*A UNIT *03*A DROPPED, NONEXISTENT REGISTER**!/ 

/*A UNIT #D3»JA DROPPED. NCT READr AT STARTUPKN/ 

/*A UNIT *D3*A DROPPED, ERRORS - *D«N/ 



!<7 
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CLEAN-UP AND REPORT CODING SECTIONS 
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SEQ 083 



1 

2 






9 






10 023276 






023276 






16 






24 






25 






26 






27 






28 






29 






30 






31 






32 






33 






34 






35 






36 






37 023276 






023276 






38 023276 


012737 


006166' 002172 


43 023304 


012700 


031677' 


44 023310 


004737 


016402* 


45 023314 


012737 


000005 002210 


46 023322 


005037 


026254' 


47 023326 






48 






49 






50 






51 






52 






53 






54 






55 






56 






57 






58 






59 






60 023326 






023326 






023326 


104402 




61 023330 


004737 


031726' 


62 023334 


004737 


032020' 


63 023340 


004737 


032062* 


64 023344 


012737 


023420 026260 


65 023352 


004737 


015664' 


66 023356 


103426 




67 023360 






023360 


012727 


000250 


023364 


000000 




023366 


013727 


002116* 


023372 


000000 




023374 


00536 7 


1.77772 


023400 


001375 




023402 


005367 


177756 


023406 


001367 





TSV7B;; 



} ♦ 



.TITLE TEST 1 - HARDWARE TEST 1-8 TESTS 



BGNMOD TSV7B 



.SBTTL TEST 1: WRITE TAPE MARK RETRY 



j THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
{REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS; 

'THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 



BGNTST 



MOV 


*EPRT1,EPRTSW 


MOV 


«TST29ID.R0 


JSR 


PCTSTSETUP 


MOV 


*5.L00PCNT 


CLR 


T29CNT 


T29L00P* 





Tl: : 
{PRIMARY ERROR MESSAGE 
{ASCII MESSAGE TO IDENTIFY 
tDO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
{CLEAR TAPE RECORD COUNTER 



TEST 



{ ♦ 



TEST 1, SUBTEST 1 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMANO ISSUEO WHILE The. 

TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION, WITH THE 

NON-EXECUTABLE FUNCTION (NEF) ERROR BIT SET. 



BGNSUB 



{ >>> > >>>>> > >> 



10$ 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


410000., T29DLY 


JSR 


PC.S0F1NIT 


BCS 


20$ 


DELAY 


250 



BEGIN SUBTEST 
Tl. 1: 

TRAP 
{SET COMMANO PACKET 
{SET UP OTHER COMMANO PACKET 
{SET UP OTHER COMMANO PACKET 
{SET UP OELAY ROUTINE 
{00 INITIALIZE ON CONTROLLER 
{8R IF INIT WAS OK 
{DELAY ABOUT .25 SECONDS 



>>>>>>>>>>>> 



C$BSUB 



MOV 0250, C PC )* 

.WORD 

MOV LSDLK.(PC)* 

.UORD i) 

DEC -6(PC) 

BNE . -4 

DEC 22CPC) 

BNE . -20 



L7 



TEST I - HARDWAPE TEST 1-8 TEST MACRO M1113 01 -FED -84 18:55 
TEST It WRITE TAPE MARK RETRY 



SEQ 089 



68 
69 
70 
74 
75 



76 
77 
78 
79 
00 
81 
85 
86 



87 

88 

89 
90 
91 
92 
96 



97 
98 
99 
100 
101 
1C2 
103 
107 



108 

109 
110 
111 
112 
113 
314 
118 



023410 
023414 
023416 
023422 
023424 
023424 
023426 
023430 
023432 
023434 

023442 
023446 
023452 
023454 
023460 
023462 
023462 
023464 
023466 
023470 
023472 
023472 
023474 
023500 
023502 
023506 
023510 
023512 
023512 
023514 
023516 
023520 
023522 
023526 
02353? 
023536 
023542 
023544 
023546 
023552 
023552 
023554 
023556 
023560 
023562 
023562 
023564 
023570 
025572 
023576 
023600 
C23602 
023606 
023606 
023610 
023612 



005337 026260' 

001356 

005237 002214' 

010001 

104455 

000145 

003642 4 

011724' 

013737 002174' 026110' 20$: 

012704 026070' 

004737 010552* 

103407 

005237 002214' 

010001 

104456 
000146 
005046' 
011724' 



104406 
016501 
010102 
042702 
020102 
00140o 

104455 

000147 

026262' 

015364' 

004737 

004737 

016501 

012702 

103407 

010004 

005237 

104456 
000150 
030065' 
011736' 

104406 
013701 
010102 
05*702 
020102 
001406 
005237 

104456 
000151 
027556' 



25$: 



DEC 
BNE 
INC 
MOV 
ERROF 



MOV 

MOV 
JSR 
BCS 
TNC 
MOV 
ERRHRD 



CKLOOP 



000002 
000100 



017074' 
010704' 
000002 
0C0200 



002214 



26$: 



30$: 



026120 



002214 



T29DLr 

10$ 

FATFLG 

R0.R1 

ERRNn,SFIERR,SFIMSG 



IJNITN.T29DSW 

*T29PACKET,R4 

PCWRTCHR 

25$ 

FATFLG 

RO.Rl 

ERRNO,WRTMSG,SFIMSG 



MOV 


TSSR(R5),R1 


MOV 


R1.R2 


BIC 


*0FL , R2 


CMP 


Rl.R? 


BEQ 


26$ 


ERRDF 


ERRN0.T290FL.EXPREC 



j BUMP DELAY ROUTINE DOWN 

j BR, IF MORE DELAY TIME LEFT 
I ERROR COUNT 

{CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 101 
.WORD SrlERR 
.WORD SFIMSG 

I SET UP UNIT NUMBER 

i SUBROUTINE NEEDS PACKET ADDRESS 
i ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMAND ISSUED OK 

j ERROR COUNT 
jSAVE CONTENTS OF TSSR 
> WRITE CHARACTERISTIC 



j LOOP IF SELECTED 

jGET THE TSSR 

j SET UP EXPECTED 

;OFr LINE SHOULD NOT RE 

j THEY SHOULD BE EQUAL 

;BR, IF OFL IS NOT SET 

j DRIVE IS OFF LINE 



FAILED 




TRA" 


CiERHRD 


.WORD 


102 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



SET 



C$CLP1 











TRAP 


C$ER)F 










.WORD 


103 










.WORD 


T290F L 










.WORD 


EXPREC 


JSR 


PC.CKDROP 




iTRY AND DROP DRIVE 






JSR 


PC, REWIND 




j CALL TAPE REWIND COMMAND 




rtOV 


TSSR(R5),R1 




jGET TSSR 






MOV 


#SSR,R2 




;SET UP EXPECTED TS5R 






BCS 


30$ 




;BR, IF NO PROBLEM 






MOV 


R0.R4 




j PACKET ADDRESS SET UP 






INC 


FATFLG 




j ERROR COUNT 






ERRHRD 


ERRN0.T29RWN 


PKTSSR 


» REWIND NOT ACCEPTED 


TRAP 
.WORD 

.WORD 
.WORD 


CiERHRD 
104 

T29RWN 
PKTSSR 


CKLOOP 






:LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T29BFR»6,R1 




jPICK UP XSTO 






MOV 


R1.R2 




j SET UP EXPEnpn 






BIS 


JBITi,H2 




jSET BOT Glf IN EXPECTED 




CMP 


R1.R2 




j DOES EXf « REC'D 






BEQ 


40$ 




j BR, IF LQUAL (OK) 






INC 


FATFLG 




; ERROR COUNT 






ERRHRD 


ERRN0.T29B01 


■EXPREC 


j TAPE NOT AT BOT AFTER 


REWIND 





TRAP 

.WORD 

.WORD 



CSERHRO 

105 

T29B0T 



M7 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 1: WRITE TAPE MARK RETRY 



119 023616 



023614 

2; 

023616 

120 023620 

121 023626 

122 023634 

123 023640 

124 023644 

125 023650 

126 023654 

127 023660 

128 023662 

129 023664 

133 02367C 
023670 
023672 
023674 
023676 

134 023700 
023700 

135 023702 

136 023706 

137 023710 

138 023714 

139 023716 

140 023720 

144 023724 
023724 
023726 
023730 
023732 

145 023734 
346 023734 

147 023736 

148 023740 
023740 
023740 

149 023742 

150 023750 

151 023752 

152 023756 
153 

154 

155 

156 

157 

153 

159 

160 

161 

162 

163 

164 

165 

166 023750 
023756 
023756 



015364' 

104406 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000152 
027342' 
011736' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000153 
026410' 
015364' 

005103 
001273 



104403 
0,?3727 
103402 
004737 



40*1 



01-FEB-84 18:55 



CKLOOP 



003116 
141011 
02622C 
OOOOOC 
016140 
000002 
100206 



002214 



026222 
026220 



MOV 


FREE.T29RB 


MOV 


0141011, T29PK3 


MOV 


0T29PK3.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC,WAITF 


MOV 


T5SR(R5),R1 


MOV 


*SSR!SC!BIT1!BIT2,R2 


CMP 


R1,R2 


BEQ 


75$ 


INC 


FATFLG 


ERRHRO 


ERRN0.T29WDE.PKTSSR 



75$ 



026120 
002000 



002214 



170$: 



002214' 00003 7 
017074' 



999$: 



i * 



COM 
BNE 
ENDSU6 



CMP 
BLO 
JSR 



.WORD 
j LOOP IF SELECTED 

TRAP 
j ADDRESS OF READ BUFFER 
{WRITE TAPE MARK PfTRY ,CVC-1 , ACK 
j SET UP R4 WITH PACKET ADDRESS 
; ISSUE COMMAND 
{WAIT FOR SSR TO SET 
j GET TSSR CONTENTS 
I SET UP EXPECTED 
;ARE TtSEY EQUAL 
j BR. IF OK 

j ERROR COUNT 
j TSSR INCORRECT AFTER READ DATA 



SEQ 090 

EXPREC 
C$CLP1 
COMMAND 









TRAP 


C$ERHRD 








.WORD 


106 








.WORD 


T29WDE 








.WORD 


PKTSSR 


CKLOOP 




jLOOP if SELECTED 


TRAP 


CSCLP1 


MOV 


T29BFR*6,R1 


;GET XSTO STATUS WORD 






MOV 


R1.R2 


{SET UP EXPECTED 






BIS 


#BIT10,R2 


{SET THE NEF BIT 






CMP 


R1.R2 


{ARE THEY EQUAL 






BEQ 


170$ 


{BR, IF EQUAL (GOOD) 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


ERRN0.T29NEF, EXPREC 


;NEF SHOULD 8E SET 


TRAP 
.WORD 
.WORD 
.WORD 


C*ERHRD 
107 

T29NEF 
EXPREC 



R3 
26$ 



FATFLG. 015 

999$ 

PCCKDROP 



{RESET THE SWITCH 

}BR, IF FIRST TIME THROUGH HERE 

L1O037: 

TRAP 
jIS ERROR COUNT AT 25 
j BR, IF LESS THAN 25 
;TRY TO PROP THE UNIT 



C$ESU3 



{TEST 1, SUBTEST 2 

{VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 

{IS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) 

{TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT CRIB) 

{SET. 

s 

J 

J 

! - 



TAPE 

RESULTS IN 
STATUS BIT 



BGNSUB 



104402 



.%>>*>>»>>>> BEGIN SUBTES- 

T1.2i 

TRAP 



CSBSUB 



N7 



TEST 1 - HARDWARE TEST 1-8 
TEST 1: WRITE TAPE MARK RE 



TEST MACRO MU13 
TRY 



Ol-FEB-84 18:55 



167 023760 

168 023764 

169 023 7 70 

170 023774 

171 024000 

172 024002 

176 024006 

177 024010 
024010 
024012 
024014 
024016 

178 024020 
179 

180 024026 

181 024032 

182 024036 

183 024040 

187 024044 

188 024046 
024046 
024050 
024052 
024054 

189 024056 
024056 

190 024060 

191 024064 

192 024070 

193 024074 

194 024076 

195 024100 

199 024104 
024104 
024106 
024110 
024112 

200 024114 
024114 

201 024116 

202 024122 

203 024124 

204 024130 

205 024132 

206 024134 

210 024140 
024140 
024142 
024144 
024146 

211 024150 

212 C24156 

213 0241o4 

214 024172 

215 024176 

216 024202 

217 024206 



004737 031726 

004737 032020 

004737 032062 

004737 015664 

103407 

005237 002214 

01000.1. 

104455 

000154 

003642' 

011724' 

013737 

012704 

004737 

103407 

005237 002214 

010001 

104456 
000155 
005046* 
011724' 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


JSR 


PC.SOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



002174' 026110' 20$ 

026070' 
010552' 



MOV UNITN.T29DSW 

MOV 0T29PACKET.R4 

JSR PC.WRTCHR 

BCS 25$ 

INC FATFLG 

MOV R0,R1 

ERRHRD ERRNO»WR T MSG, SFIMSG 



010704* 

000002 

000200 



002214' 



30$ 



CKLOOP 



10^406 
004737 
016501 
012702 
103407 
010004 
005237 

104456 
000156 
030065 
011736 



104406 

013701 026120' 

010102 

052702 000002 

020102 

001406 

00523 7 002214' 



104456 

000157 

027556* 

015364' 

C12737 000001 026222' 40$: MOV 

01273/ 000400 026226' MOV 

012737 140005 026220' MOV 

012704 026220' MOV 

010465 000000 MOV 

004737 016140- JSR 

0X6501 000002 MOV 



25$: 


CKLOOP 




26$: 


JSR 


PC, REWIND 




MOV 


TSSRCR5),R1 




MOV 


0SSR.R2 




PCS 


30$ 




MOV 


R0.R4 




INC 


FATFLG 




ERRHRD 


ERRN0.T29RWN.PKTSSR 



MOV 


T29BFR»6.Ri 


MOV 


R1.R2 


bJS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29B0T.EXPREC 



01.T29PB 

0256. , T29SZ 

0140005, T29PK3 

0T29PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSRCR5),R1 



SEQ 091 



j SET COMMAND PACKET 
l SET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
{DO INITIALIZE ON CONTROLLER 
I BR IF INIT WAS OK 

j ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
; FATAL ERROR TSSR WAS NOT OK 

TRAP 
. WORD 
.WORD 
.WORD 
j SET UP UNIT NUMBER 



C$ERDF 
1 08 

SFIERR 
SFIMSG 



SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMAND ISSUED OK 
;ERROK COUNT 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

CALL TAPE REWIND COMMAND 

GET TSSR 

SET UP EXPECTED TSSR 

BR, IF NO r>R08LEM 

PACKET ADDRESS SET UP 
{ERROR COUNT 

REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
109 

WRTMSG 
SFIMSG 

C^CLPl 



TRAP 



C$ERHRD 
110 

T29RWN 
PKTSSR 

CSCl.Pl 



{LOOP LF SELECTED 

{PICK UP XSTO 

{SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

?DOES EXP - REC'D 

{BR. IF EQUAL (OK) 

{ERROR COUNT 

jTAPE NOT AT BOT AFTER REWIND 

TRAP CiERHRD 
.WORD 111 
.WORD T29B0T 
.WORD EXPREC 

{NUMBER OF RECORDS TO SPACE OVER 

{SET UP RECORD SIZE 

jURITE FORWARD, CVC- LACK COMMAND 

iSP.T UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

;WAIT FOR SSR TO ^T 

{GET TSSR CONTENTS 



B8 



TEST 1 - HARDWARE TEST ! 
TEST It WRITE TAPE MARK 



218 024212 012702 

219 024216 020102 

220 024220 001420 

221 024222 013703 

222 024226 032703 

223 024232 001405 

224 024234 
024234 104455 
024236 000157 
024240 027424' 
024242 011724- 

225 024244 
024244 104444 

226 024246 005237 

230 024252 
024252 104456 
024254 000160 
024256 027511' 
024260 0117*6' 

231 024262 
024262 104406 

232 024264 012737 

233 024272 012737 
UP SPACE REVERSE 

234 024300 012704 

235 024304 010465 
2% 024310 004737 

237 024314 016501 

238 024320 012702 

239 024324 020102 

240 0243C6 001*06 

241 024330 005237 

245 024334 
024334 104456 
024336 000161 
024340 027M2' 
024342 011736' 

246 024344 
024344 104406 

247 024346 013737 

248 024354 012737 

249 024362 012704 

250 024366 010465 

251 024372 004737 

252 024376 016501 

253 024402 012702 
?S4 0244C>6 020102 

255 024410 001406 

256 024412 005237 
260 024416 

024416 10445*> 

024420 000162 

024422 027342' 

024424 011736' 
C'61 024426 

024426 104406 

262 024430 013701 

263 024434 010-102 



9 TEST 
RETRY 

000200 



MACRO M1113 



026120 
000004 



Ol-FEB-84 


16} 55 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


75$ 


MOV 


T29BFR»6,R3 


BIT 


04, R3 


BEQ 


41$ 


ERRDF 


ERRN0,T29WLK,SFIMSG 



002214' 



41$? 



DOCLN 

INC 
ERRHRU 



FATFLG 
ERRN0.T29WRT, PKTSSR 



SEQ 092 



j SET UP EXPECTED 

j ARE THEY EQUAL 

I BR, IF OK 

|PICK UP XTSO 

tlS UNIT WRITE -LOCKED? 

iNO, PROCEED WITH NORMAL ERROR 

»TAPE IS WRITE LOCKED 

TRAP C$ERDF 
.WORD 111 
.WORD T29WLK 
.WORD SFIMSG 

{DROP IT 

TRAP CIDC.N 
l ERROR COUNT 

I TSSR INCORRECT AFTER WRITE DATA 













TRAP C$ERHRD 












■WORD 112 












.WORD T29WRT 












.WORD PKTSSR 




75$i 


CKLOOP 






ll.OOP IF SELECTED 

TRAP C$CLP1 


000001 


026222' 


MOV 


♦1.T29RB 




iNUMBER OF RECORDS TO SPACE OVER 


140410 


026220* 


MOV 


0140410, T29PK3 


I SET UP COMMAND IN APCKET 


026220' 




MOV 


0T29PK3.R4 




»SET UP R4 WITH PACKET ADDRESS 


000000 




MOV 


R4,T$06(R5) 




tlSSUe COTflAND 


016140' 




JSR 


PC.WAITF 




iWAIT FOR SSR TO SET 


000002 




MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 


000200 




MOV 


•SSR.R2 




iSET UP EXPECTED 






ap 


R1.R2 




j ARE THEY EQUAL 






BEQ 


175$ 




iBR, IF OK 


002214' 




INC 


FATFLG 




I ERROR COUNT 






ERRHRD 


ERRN0.T29W0E, 


» PKTSSR 


|T5SR INCORRECT AFTER READ DATA 



iSET 



175$j CKLOOP 



»LOOP IF SELECTED 



TRAP 

.WORD 

.WORO 

.WORD 

TRAP 



C$ERHR0 
113 

T29W0E 
PKTSSR 

C$CLP1 



003116' 


026222' 


MOV 


FREE.T29RB 


I ADDRESS OF BUFFER 




141011 


026220* 


MOV 


0141011, T29PK3 


IWRITE TAPE MARK RETRY ,ACK ,CVC- 


1 COMO. 


026.20' 




MOV 


0T29PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




000000 




MOV 


R4,TS0eCR5) 


l ISSUE COMMANO 




016140' 




JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 




000002 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




100204 




HOV 


0SSR!SC|BIT2,R2 


iSFT UP EXPECTED 








CMP 


R1.R2 


lARE THEY EQUAL 








BEQ 


180$ 


iBR, IF OK 




002214* 




INC 


FATFLG 


, ERROR COLWT 








ERRHRD 


ERRN0,T29W0E, PKTSSR 


j TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
U4 

T29WD*r 
PKTSSR 




1601 1 


CKLOOP 




jLOOP IF SELECTED 

TRAP 


CtCLPl 


026126* 




MOV 


T296FRfl4,Rl 


iGFT XST3 STATUS WORD 








MOV 


Rl*R2 


iSfcl UP EXPECTED 





C8 



TEST 1 HARDWARE TEST 1-8 TEST MACRO M1U3 
TEST It WRITE TAPE MARK RETRY 



01-FEB-84 18i55 



SEQ 093 



264 024436 


052702 


000001 




BIS 


O6IT0.R2 


jSET THE RIB SIT 




265 024442 


020102 






CMP 


R1.R2 


,ARE THEY EQUAL 




266 024444 


001406 






BEQ 


1901 


1 BR, IF EQUAL (GOOD) 




267 024446 


005237 


002214' 




INC 


FATFLG 


, ERROR COUNT 




271 024452 








ERRHRD 


ERRN0,T29RIB,EXPREC 


iNEF SHOULD BE SET 




024452 


104456 










TRAP 


CIERHRD 


024454 


000163 










.WORD 


115 


024456 


031504 ' 










■ WORD 


T29RIB 


024460 


015364' 










.WORD 


EXPREC 


2U 024462 






190$i 










273 024462 








ENDSU6 




!>>%>>>>>>>>> END SUBTEST >>>■>>>>>>>>> 


024462 












L 10040: 




024462 


104403 










TRAP 


CIESUB 


274 024464 


023727 


002214 ■ 000017 




CMP 


FATFLG, 015. 


iIS ERROR COUNT AT 25 




275 024472 


103402 






BIO 


9991 


>BR, IF LESS THAN 25 




276 024474 


004737 


017074' 




JSR 


PC.CKDROP 


jTRY TO DROP THE UNIT 




277 024500 






999*} 










278 
















279 






J ♦ 










280 






j 










281 






j TEST 1 


, SUBTEST 3 






282 






l 










283 






VERIFIES THAT 


A WRITE TAPE MARK RETRY 


COMMANO TERMINATES 




284 






t PROPER 


l.Y ANO WRITES THE TAPE tfARK ONTO TAPE (BY ISSUING A READ REVERSE 




285 
286 






I COMMAND AND CHECKING FOR TAPE STATUS 

1 


ALERT TERMINATION ANO TMK-1). 




287 

288 024500 






1 ■ 


BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


024500 












T1.3: 




024500 


104402 










TRAP 


C*BSUB 


289 024502 


004737 


031726' 




JSR 


PC.T29REST 


iSET COMMANO PACKET 




290 024506 


004737 


032020' 




JSR 


PC.T29RT2 


iSET UP OTHER CJMMAND PACKET 




291 024512 


004737 


032062' 




JSR 


PC.T29RT3 


I SET UP OTHER COMMANO PACKET 




292 024516 


012737 


023420 026260 l 




MOV 


♦10000. ,T29DLY 


iSET UP OELAY ROUTINE 




293 024524 


004737 


015664' 


10$! 


JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




294 024530 


103426 






BCS 


201 


»BR IF INIT WAS OK 




295 024532 








DELAY 


250 


j DELAY ABOUT .25 SECONDS 




024532 


012727 


000250 








MOV 


0250, (PC)* 


024536 


000000 










.WORD 





024540 


013727 


002116* 








MOV 


LIDL?,CPC)» 


024544 


000000 










.WORD 





024S56 


005367 


177772 








DEC 


-6CPC) 


024552 


001375 










BNE 


. -4 


024554 


00536? 


177756 








DEC 


-22CPC) 


024560 


001367 










BNE 


.-20 


296 024562 


005337 


026260' 




DEC 


T29DLT 


,BUMP DELAY ROUTINE DOWN 




297 024566 


001556 






BNE 


101 


|BR, IF MORE DELAY TIME LEFT 




298 024570 


005237 


002214' 




INC 


FATFL.G 


I ERROR COUNT 




302 024574 


010001 






MCV 


RO.Rl 


CONTENTS OF TSSR REGISTER 




303 024576 








ERRDF 


ERRNO,SFIERR,SFIMSG 


iFATAL ERROR TSSR WAS NOT OK 




024576 


104455 










TRAP 


CIERDF 


024600 


000164 










.WORD 


116 


024602 


003642' 










.WORD 


SFIERR 


024604 


011724' 










.WORD 


SFIMSG 


304 024606 


013737 


002174' 026110' 


201: 


MOV 


UNITN.T29DSW 


! SET UP DRIVE NUMBER 




305 024614 


012704 


026070' 




MOV 


OT29PACKET.R4 


i SUBROUTINE NEEDS PACKET ADDRESS 


306 024620 


004737 


010552* 




JSR 


PC # WRTCHR 


» ISSUE WRITE CHARACTERISTICS 





D8 



TEST 1 - HARDWA 


RE TEST 


1-8 TEST MACRO t 


TEST 1: WRITE 


TAPE MARK RETRY 


307 024624 


103407 




308 024626 


00523 7 


002214' 


312 024632 


010001 




313 024634 






024634 


104456 




024636 


000165 




024640 


005046' 




024642 


011724' 




314 024644 






024644 


10440-S 




315 024646 


004737 


010704' 


316 024652 


103411 




317 024654 


016501 


000002 


318 024660 


010004 




319 024662 


005237 


002214' 


323 024666 






024666 


104456 




024C70 


000166 




024672 


030065' 




02^67* 


011736' 




324 02467o 






024676 


104406 




325 024700 


015701 


026120' 


326 024704 


010102 




327 024706 


052702 


000002 


328 024712 


020102 




329 024714 


001406 




330 024716 


005237 


002214' 


334 024722 






024722 


104456 




024724 


000167 




024 726 


027556' 




024730 


015364' 




335 024732 






024 732 


104406 




336 024734 


012737 


140011 026220 


337 024742 


012704 


026220' 


338 024746 


010465 


000000 


339 024752 


004737 


016140' 


340 024756 


016501 


000002 


341 024762 


012702 


000200 


34? 024766 


020102 




343 024770 


001406 




344 024772 


005237 


002214' 


348 024776 






024776 


104456 




025000 


000170 




025002 


030457' 




025004 


011736* 




349 025006 






025006 


104406 




350 025010 


012703 


000001 


351 025014 


012737 


141011 026220 


352 025022 


012704 


026220' 


353 025026 


010465 


OOOOOO 


354 025032 


004737 


016140' 


355 025036 


016501 


000002 



M1113 



23$: 



30*: 



01-FEB-84 


18} 55 






SEQ 094 


BC5 


23$ 


jBR, IF COMMAND ISSUED 


OK 




INC 


FATFLG 


l ERROR COUNT 






MOV 


R0,R1 


j SAVE CONTENTS OF TSSR 






ERRHRD 


ERRNO.WRTMSG.SFIMSG 


iWRITE CHARACTERISTIC 


FAILED 
TRAP 
.WORD 
.WORD 
.WORO 


C$ERHRD 
117 

WRTMSG 
SFT.MSG 


CKLOOP 




lLOOP IF SELECTED 


TRAP 


CtCLPl 


JSR 


PC .REWIND 


iCALL TAPE REWIND COMMANO 




BCS 


30$ 


j BR, IF NO PROBLEM 






MOV 


fSSR(R5),Rl 


iGET TSSR 






MOV 


R0.R4 


j SAVE PACKET ADDRESS 






INC 


FATFLG 


k ERROR COUNT 






ERRHRD 


ERRN0.T29RWN.PKTSSR 


iREVIIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
118 

T29RWN 
PKTSSR 



CKLOOP 



lLOOP IF SELECTED 



TRAP 



C$CLP1 



MOV 


T296FR*6,R1 


MOV 


R1.R2 


BIS 


♦8IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T29B0T,i:XPREC 



40$: 



CKLOOP 



MOV 


0140011, T29PK3 


MOV 


0T29PK3.R4 


MOV 


R4 t TSD6(R5) 


JSfl 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29WDC, PKTSSR 



70$: 
150$: 



155$: 



CKLOOP 



MOV 


♦I..R3 


MOV 


0141011. T29PK3 


MOV 


0T29PK3.R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 



jPICK UP XSTO 

jSET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

I DOES EXP ■ REC'D 

iBR, IF EQUAL (OK) 

j ERROR COUNT 

j TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 119 
.WORD T2960T 
.WORD EXPREC 

j LOOP IF SELECTED 

TRAP C$CLP1 

i WRITE TAPE MARK,ACK.CVC-1 COMMANO 

i SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMANO 

iWAIT FOR SSR TO SET 

iGET TtSR CONTENTS 

j SET UP EXPECTED 

jARE THEY EQUAL 

jBR, IF OK 

j ERROR COUNT 

i TSSR INCORRECT AFTER WRITE TAPE MARK 

TRAP C$ERHRD 
.WORD 120 
.WORD T29WDC 
.WORD PKTSSR 

lLOOP IF SELECTED 

TRAP C$CLP1 

iNUMBER OF RECORDS TO WRITE TM 

j WRITE TAPE MARK RETRY ,ACK.CVC-1 COMMAND 

tSET UP R4 WITH PACKET ADDRESS 

j ISSUE CC1MAND 

jWAIT FOR SSR TO SET 

I PICK UP TSSR 



E8 



TEST I - 


HARDWARE TEST 


1-8 TEST MACRO V 


TEST 1: 


WRITE 


TAPE MARK RETRY 


356 


0*5042 


012702 


000200 


357 


025046 


020102 




358 


025050 


001406 




359 


025052 


005237 


002214' 


363 


025056 








025056 


104456 






025060 


000171 






025062 


030457' 






025064 


011736* 




364 


025066 








025066 


104406 




365 


025070 


012737 


140401 026220* 


366 


025076 


013737 


003116' 026222' 


367 


025104 


012704 


026220* 


368 


025110 


010465 


000000 


369 


025114 


004737 


016140' 


370 


025120 


016501 


000002 


371 


025124 


012702 


100204 


372 


025130 


020102 




373 


025132 


001406 




374 


025134 


005237 


002214* 


378 


025140 








025140 


104456 






025142 


000172 






025144 


031423' 






025146 


011736* 




379 


025150 








025150 


104406 




380 


025152 


013701 


026120' 


381 


025156 


010102 




382 


025160 


052702 


100000 


383 


025164 


020102 




384 


025166 


001406 




385 


025170 


005237 


002214' 


389 


025174 








025174 


104456 






025176 


000173 






025200 


031604' 






025202 


015364' 




390 


025204 








025204 


104406 




391 


025206 
025206 








025206 


104403 




392 


025210 


023727 


002P14' 000017 


393 


025216 


103402 




394 


025220 


004737 


017074* 


395 


025224 






396 








:,97 








398 








399 








400 








401 








402 








403 








404 









MU13 



1651; 



Ql-FEB-84 


18:55 




SEQ 095 


MOV 


0SSR.R2 


jSET UP EXPECTED CSSR ONLY) 




CMP 


R1.R2 


jWAS STATUS GOOD 




BEQ 


165$ 


I BR, IF TERMINATION WAS GOOD 




INC 


FATFLG 


j ERROR COUNT 




ERRHRD 


ERRN0.T29WDC, PKTSSR 


jTSSR NOT CORRECT AFTER WRT TAP 


5 M. 






TRAP 


C$ERHRD 






.WORD 


121 






.WORD 


T29WDC 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


0140401, T29PK3 


1 READ REVERSE, ACK, COMMAND 




MOV 


FREE.T29RB 


l .ViUMBER OF RECORDS TO SPACE BACK 


MOV 


0T29PK3.R4 


,SET UP R4 WITH PACKET ADDRESS 





MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



222$: CKLOOP 

MOV 
MOV 
PIS 
CMP 
BEQ 
INC 
ERRHRD 



R4,TSDB(R5) 

PCWAITF 

TSSR(R5).R1 

*SSR!SC!BIT2,R2 

R1.R2 

222$ 

KATFLG 

ERRN0.T29RDG, PKTSSR 



I ISSUE COMMANO 

j WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

»BR, IF OK 

j ERROR COUNT 

jTSSR INCORRECT AFTER SPACE CMO. 

TRA? 
.WORD 
.UORD 
.WORD 



i LOOP IF SELECTED 



T29BFR*6,R1 
R1.R2 
*6IT15,R2 
R1.R2 

226$ 

FATFLG 
ERRNQ.T29RRN.EXPREC 



TRAP 



226$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 



iPICK UP XSTO 

I SET UP EXPECTED 

I TMK SHOULD BE SET 

t IS TMK SET 

:BR, IF TMK WAS SET (GOOD) 

I ERROR COUNT 
OMK NOT SET AFTER READ 



{LOOP IF SELECTED 



C$ERHRD 
122 

T29RDG 
PKTSSR 

C$CLP1 



REV 




TRAP 


CiERHRD 


.WORD 


123 


.WORD 


T29RRN 


.WORD 


EXPREC 



TRAP 



C$CLPi 



j<<<<<<<<<<< 



FATFLG, *15, 

999$ 

PCCKDROP 



END SUBTEST 
L 10041: 

TRAP 
iIS ERROR COUNT AT 25 
iBR. IF LESS THAN 25 
j TRY TO DROP THE UNIT 



>>>>>>>>•>>> 



C$ESUB 



999$: 

i ♦ 

tTEST 1, SUBTEST 4 

iVERIFIES THAT THE SPACE-REVERSE PORTION OF THE WRITE TAPE MARK 

iRETRY OPERATION IS PERFORMED BY REUINDING THE TAPE, ISSUING SEVERAL 

, WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION , THEN ISSUING TWO SPACE 

I RECORDS REVERSE COMMANDS IN SUCCESSION, THE SECOND SPACE RECURDS REVERSE 



F8 



TEST 1 - HARDWARE TEST 


1-8 TEST MACRO P 


TEST 1: WRITE 


TAPE MARK RETRY 


405 






406 






407 






408 025224 






025224 






025224 


104402 




409 025226 


004737 


031726' 


410 025232 


004737 


032020' 


411 025236 


004737 


032062' 


412 025242 


012737 


023420 026260' 


413 025250 


004737 


015664' 


414 025254 


103426 




415 025256 






025256 


012727 


000250 


025262 


000000 




025264 


013727 


002116' 


025270 


000000 




025272 


0C5367 


177772 


025276 


001375 




025300 


005367 


177756 


025304 


001367 




416 025306 


005337 


026260' 


417 025312 


001356 




418 025314 


005237 


002214' 


422 025320 


010001 




423 025322 






025322 


104455 




025324 


000174 




025326 


003642' 




025330 


011724' 




424 025332 


013737 


002174' 026110' 


425 025340 


012704 


026070* 


426 025344 


004737 


010552' 


427 025350 


103407 




428 025352 


005237 


002214' 


432 025356 


010001 




433 025360 






025360 


104456 




025362 


000175 




025364 


005046* 




025366 


011724' 




434 025370 






025370 


104406 




435 025372 


004737 


010704' 


436 025376 


103411 




437 025400 


016501 


000002 


438 025404 


010004 




439 025406 


005237 


002214' 


443 025412 






025412 


104456 




025414 


000176 




025416 


030065' 




025420 


011736' 




444 025422 






025422 


104*06 




445 025424 


013701 


026120* 


446 025430 


010102 





01-FE8-84 18:55 



SEQ 096 



iCOMMAND SHOULD TERMINATE WITH REVERSE 
BGNSUB 



INTO BOT (RIB) STATUS SET. 



j >>>>>^>>>>>> 



10$: 



JSR 


PC.T29REST 


JSR 


PC.T29RT2 


JSR 


PC.T29RT3 


MOV 


010000. .T29DLY 


JSR 


PC.SQFINIT 


BCS 


20* 


DELAY 


250 



20* 



23$ 



30$: 



CKLOOP 

MOV 
MOV 



BEGIN SUBTEST 
T1.4: 

TRAP 
tSET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
{SET UP OTHER COMMAND PACKET 
; SET UP DELAY ROUTINE 
}D0 INITIALIZE ON CONTROLLER 
jBR IF INIT WAS OK 
j DELAY ABOUT .25 SECONDS 

MOV 

♦ WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



>>>>>>> >>>>> 



C$BSUB 



0250. (PC)* 



L$DLY,(PO* 



-6(PC) 

. -4 

-22CPC) 

.-20 



DEC 


T29DLY 


iBUMP DELAY ROUTINE DOWN 




BNE 


10$ 


j BR, IF MORE DELAY TIME LEFT 




INC 


FATFLG 


j ERROR COUNT 




MOV 


R0.R1 


i CONTENTS OP TSSR REGISTER 




ERRDF 


ERRNO.SFIERR.SFIHSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


124 






.WORD 


SFIERR 






.WORD 


SFIrtSG 


MOV 


UNITN.T29DSW 


: SET UP DRIVE NUMBER 




MOV 


*T29TACKET,R4 


j SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WWTCHR 


: ISSUE WRHE CHARACTERISTICS 




BCS 


23$ 


jBR, IF COMMAND ISSUED OK 




INC 


FATFLG 


j ERROR COUNT 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


(WRITE CHARACTERISTIC FAILED 








TRAP 


CIERHRD 






.WORD 


125 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CLP1 


JSR 


PC. REWIND 


j CALL TAPE REWIND COMMAND 




BCS 


30$ 


j BR, IF NO PROBLEM 




MOV 


TSSR(R5),R1 


iGET TSSR 




MOV 


R0.R4 


j SAVE PACKET ADDRESS 




INC 


FATFLG 


I ERROR COUf'T 




ERRHRD 


ERRN0.T29RWN.PKTSSR 


ifciWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


126 






.WORD 


T29RWN 






.WORD 


PKTSSR 



T29BFRf6,Rl 
R1.R2 



lLOOP It- SELECTED 

iPICK UP XSTO 
I SET UP EXPECTED 



TRAP 



C$CLP1 



G8 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST li WRITE TAPE MARK RETRY 



01-FEB-84 18:55 



SEQ 097 



447 025432 

448 025436 

449 025440 

450 025442 

454 025446 
025446 
025450 
025452 
025454 

455 025456 
025456 

456 025460 

457 025466 

458 025472 

459 025476 

460 025502 

461 025506 

462 025512 

463 025514 

464 025516 

468 025522 
025522 
025524 
025526 
025530 

469 025532 
025532 

470 025534 

471 025540 

472 025546 

473 025554 
4 74 025' -60 

475 025564 

476 025570 

477 025574 
4 78 025600 

479 025602 

480 025604 

484 025610 
025610 
025612 
025614 
025616 

485 025620 
025620 

486 025622 

487 025624 

488 025626 

489 025634 

490 025642 

491 025646 

492 025652 

493 025656 

494 025662 

495 025666 

496 025670 

497 025672 



052702 000002 

020102 

001406 

005237 002214' 

104456 
000177 
027556' 
015364' 

104406 

012737 140011 026220' 

012704 026220' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 

020102 

001406 

OC5237 002214' 

104456 
000200 
030457' 

011736' 



40$: 



BIS 


0BIT1.R2 


j SET BOT BIT IN EXPECTED 




CMP 


Rl.R? 


iDOES EXP - REC'D 




BEQ 


40$ 


{BR, IF EQUAL (OK) 




INC 


FATFLG 


i ERROR COUNT 




ERRHRD 


ERRN0,T29B0T,EXPREC 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


C$ERHHD 






.WORD 


127 






.WORD 


T29BGT 






.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


C$CLP1 


"OV 


0140011 ,T29P1<3 


j WRITE TAPE MARK.ACK.CVC-1 COMMAND 


MOV 


0T29PK3,R4 


iSET UP R4 WITH PACKET ADDRESS 




MOV 


R4 t TSDB(R5) 


j ISSUE COMMAND 




JSR 


PC,WAITF 


I WAIT FOR SSR TO SET 




MOV 


TSSRCR5).R1 


k GET TSSR CONTENTS 




MOV 


essR.na 


l SET UP EXPECTED 




CMP 


R1.R2 


{ARE THEY EQUAL 




BEQ 


70$ 


{BR, IF OK 




INC 


FATFLG 


j ERROR COUNT 




ERRHRD 


ERRN0.T29WDC, PKTSSR 


{TSSR INCORRECT AFTER WRITE TAPE NARK 



104406 
012703 
012737 
01.2737 
012704 
010465 
004737 
016501 
012702 
^20102 
001406 
005237 

104456 
000201 
030457' 
011736' 

104406 
005303 
001355 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 



000012 

000001 

141011 

026220' 

000000 

016140' 

000002 

000200 



002214 



026222 
026220 



70$: 
150$: 



155$ 



CKLOOP 



165$ 



CKLOOP 



140410 

000001 

026220' 

000000 

016140' 

000002 

100204 



002214' 



026220' 
026222' 



C$ERHRD 
128 

T29WDC 
PKTSSR 

C$CLP1 



MOV 


010. ,R3 


MOV 


01.T29RB 


MOV 


0141011, TZ9PK3 


MOV 


0T29PK3.P.4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T29WDC. PKTSSR 



TRAP 

.WORD 

.WORD 
WORD 
I LOOP IF SELECTED 

TRAP 

j NUMBER OF RECORDS TO WRITE TM 
j SET UP PACKET 

{WRITE TAPE MARK RETRY ,ACK t CVC«l COMMAND 
:SET UP R4 WITH PACKET ADDRESS 
{ISSUE COMMAND 
{WAIT FOR SSa TO SET 
{PICK UP TSSR 

{SET L^ EXPECTED CSSR ONLY) 
{WAS STATUS GOOD 
{BR, IF TERMINATION WAS GOOD 

{ERRC3 COUNT 
{TSSR NOT CORRECT AFTER WRT TAPE M. 



{LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


129 


.WORD 


T29W0C 


♦ WORD 


PKTSSR 



TRAP 



UCLP1 



DEC 


R3 


BNE 


155$ 


MOV 


0140410, T29PK3 


MOV 


01.T29RB 


MOV 


0T29PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSR(R5).R1 


MOV 


0SSR!SC!BIT2,R2 


CMP 


R1.R2 


BEQ 


222$ 


INC 


FATFLG 



tBUMH COUNTER DOWN 

{BR. IF LESS THAN 10 TAPL MARKS 

{SPACE REVERSE, ACK.CVC-1, COMMAND 

{NUMBER OF RECORDS TO SPACE BACK 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THE> EQUAL 

{BR, IF OK 

{ERROR COUNT 



H8 



TEST 1 


HARDWA 


RE TEST 


1-8 TEST MACRO M 


1113 01 


-FEB -84 


18:T5 




SEQ 098 


TEST 1: 


WRITE 


TAPE MARK RETRY 












501 


025676 

025676 
C25700 
025702 
025704 


104456 
000202 
027342' 
011756' 






ERRHRD 


ERRN0.T29WDE, PKTSSR 


jTSSR INCORRECT AFTER SPACE CMO 

TRAP 
. WORD 
.WORD 
.WORD 


'C$ERHRD 
130 

T29W0E 
PKTSSR 


502 


025706 
025706 


104406 




222$: 


CKLOOP 




{LOOP IF SELECTED 

TRAP 


C$CLPl 


503 


025710 


012737 


100410 026220' 




MOV 


♦100410* T29PK3 


j SPACE RE VERSE, ACK , COMMAND 




[ 04 


025716 


012737 


000005 026222' 




MOV 


05.T29RB 


t NUMBER OF RECORDS TO SPACE BACK 


503 


025724 


012704 


026220' 




MOV 


*T29PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




506 


025730 


010465 


000000 




MOV 


R4,TSDBCR5) 


jIS^UE COMMAND 




507 


025734 


004737 


016140' 




JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 




508 


025740 


016501 


000002 




MOV 


TSSR(R5).R1 


»GET TSSR CONTENTS 




509 


025744 


012702 


100204 




MOV 


OSSRJSCJBIT2.R2 


tSET UP EXPECTED 




510 


025750 


020102 






CMP 


R1.R2 


1 ARE THEY EQUAL 




511 


025752 


001406 






BEQ 


260$ 


iBR* IF OK 




512 


025754 


005237 


002214' 




INC 


FATFLG 


j ERROR COUNT 




516 


025760 
025760 
025762 
025764 
025 766 


104456 
000203 
031423' 
011736' 






ERRHRD 


ERRN0.T29RDG, PKTSSR 


I TSSR INCORRECT AFTER SPACE REV 

TRAP 
.WORD 
.WORD 
.WORD 


CMO, 

C$ERHRD 
131 

T29RDG 
PKTSSR 


517 


C25770 
025770 


104406 




260$; 


CKLOOP 




:LOOP IF SELECTED 

TRAP 


c$ct-n 


518 


025772 


013701 


026126' 




MOV 


T29BFR»14,R1 


iPICK UP XST3 




519 


025776 


010102 






MOV 


R1.R2 


tSET UP EXPECTED 




520 


026000 


052702 


000001 




BIS 


#BIT0,R2 


t RIB SHOULD BE SET 




521 


026004 


020102 






CMP 


P1.R2 


iIS RIB SET 




522 


026006 


001406 






3EQ 


270$ 


j BR, IF RIB WAS SET (GOOD) 




523 


026010 


005237 


002214' 




INC 


FATFLG 


j ERROR COUNT 




527 


026014 
026014 
026016 
026020 
026022 


104456 
000204 
031504' 
015364' 






ERRHRD 


ERRNQ,T29RI8,EXPREC 


iTMK NOT SET AFTER READ REV 

TRAP 
.WORD 
.WORD 
.WORD 


C$e.RHRD 

132 

T29RIB 

EXPREC 


528 


026024 
026024 


104406 




270$: 


CKLOOP 




jLOOP IF SELECTED 

TRAP 


CICLP1 


529 


026026 
026026 


104406 




330$; 


CKLOOP 




,LOOP IF SELECTED 

TRAP 


CICL.P1 


530 


026030 








ENDSUB 




!<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 




026030 












L 10042: 






026030 


104403 










TRAP 


C$ESUB 


531 


026032 


023727 


002214' 000017 




CMP 


FATFLG, $15, 


tIS ERROR COUNT AT 25 




532 


026040 


103402 






BLO 


999$ 


»BR. IF LESS THAN 25 




533 


026042 


004737 


017074' 




JSR 


PC.CKDROP 


j TRY TO DROP THE UNIT 




534 


026046 






999$: 










555 
536 
537 
538 
539 








i 










026046 


004727 


016350' 


1 
J 


JSR 


PC.TSTLOOP 


iDO WE NEED TO ITERATE TEST 




540 


026052 


103002 






BCC 


163$ 


j BR. IF NO LOOP REQUIRED 




541 


026054 


000137 


023326' 




JMP 


T29L00P 


jEXECUTE AGAIN 




542 


026060 
026060 


104432 




163$: 


EXIT 


TST 


jALL DONE THIS VEST 

TRAP 


C$f.xlT 


543 


026062 


004030 










.WORD 


H0036- 



18 
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544 
545 
546 
548 026064 

550 026070 

551 026070 

552 026072 

553 026074 

554 026076 

555 026100 

556 026100 

557 026102 

558 026104 

559 026106 

560 026110 

561 026112 
562 

563 
564 
566 026174 

568 026200 

569 026200 

570 026202 

571 026204 

572 026206 
5?V 

575 026210 

577 026220 

578 026220 

579 026222 

580 026222 

581 026224 

582 026226 
583 

584 
585 
586 

587 026230 

588 026230 

589 026231 

590 026232 

591 026234 
592 

593 
594 
595 
596 

597 026236 

598 026240 

599 026242 

600 026244 

601 026246 

602 026250 

603 026252 
604 

60b 

6Q6 026254 



014004 

126100' 

000000 



026112' 

000000 

000024 

000000 

000000 



100006 
026230 
000000 

000006 



140005 

003116' 

000000 

000000 



010 

200 

000000 

000000 



140001 
140401 
141001 
161001 
141401 
161401 
177777 



000000 



\ * 



I LOCAL STORAGE 


FOR THIS TEST 


.BLKB 


10-<.-TSV267 


T29PACKET: 




.WORD 


14004 


.WORD 


T29DATA 


.WORD 





.WORD 


10, 


T29DATA: 




.WORD 


T29BFR 


.WORD 





.WORD 


20. 


.WORD 





T290SW: .WORD 





T29BFR: .BLKW 


25. 



j WRITE SUBSYSTEM MEMORY COMMAND PACKET 



i 
T29PK2: 



.BLKB 10-<.-TSV267> 





.WORD 


100006 




.WO^D 


T296F2 




.WORD 







.WORD 


6. 




.BLKB 


10-<.~ 


T29PK3! 








.WORD 


140005 


T29RB: 






T29WB: 


.WORD 


FREE 




.WORD 





T29SZ: 


.WORD 





J 


.EVEN 




i 

T29CF2; 






T296S0: 


.BYTE 


10 


T29BS1J 


.BYTE 


200 


T29S2: 


.WORD 





T29S3: 

I 


.WORD 





l 


.EVEN 




iTAPE MO T ION PACKET COJ 


T29RN; 


.WORD 


'.40001 


T29W0&; 


.WORD 


140401 


T29C0N} 


.WORD 


141001 




.WORD 


161001 




.WORD 


141401 




.WORD 


161401 




.WORD 


177777 



SEQ 099 



I COMMAND PACKET FOR TEST 

IWRITE CHARACTERISTICS COMMAND. WITH CVC-1. 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
jCHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

t SELECT DRIVE 
I MESSAGE BUFFER 



ACK 



j WRITE SUB SYS MEM COMMAND, AND ACK 
I ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



iWRITE TAPE MARK RETRY COMMANO, CVC«1 AND ACK 
j ADDRESS OF WRITE BUFFER 
i SIZE OF BUFFER (EXTENT) 



jBSELO AREA 
jBSELl AREA 
jSEL 2 AREA 
jDATA AREA 



T29CNT: .WORD 



iREAO DATA 

iREAD DATA REVERSE 

l READ PREVIOUS OPP-0 

iREAO PREVIOUS OPP-l 

iWRITE TAPE MARK RETRl NEXT OPP-0 

iWRITE TAPE MARK RETRY NEXT 0PP"1 

lEND OF DATA 



{TAPE RECORD COUNTER STORAGE AREA 



TEST 1 - HARDWARE TES'I 1-8 TEST MACRO M1113 
TEST 1: WRITE TAPE MARK RETRY 
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SEQ 100 



607 

608 026256 

609 026260 
610 

611 

612 

615 

614 

615 

616 

617 026262 

613 026303 

619 026410 

620 026500 

621 026547 

622 026663 



623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 



026777 
027061 
027131 
027206 
027267 
027342 
027424 
027511 
027556 
027623 
027711 
030007 
030065 
030134 
030207 
030275 
030350 
030457 
030551 
030624 
030716 
031005 
031067 
031151 
031237 
031325 
031423 
031504 
031604 
031677 



031726 

031726 
031732 



000000 
000000 



104 
124 
127 
124 
127 

127 

120 
122 
124 
111 
127 
124 
052 
124 
124 
104 
127 
124 
122 
122 
l.*4 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
124 
127 
124 
127 



162 
141 
122 
123 
122 

122 

117 
111 
123 
154 
122 
123 
052 
123 
141 
141 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
123 
122 
115 
162 



151 
160 

ill 

123 
111 



123 
102 
123 
154 
111 
123 
052 
123 
160 
164 
111 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
123 
111 
113 
151 



T29RSZ: 
T20DI.Y i 



.WORD 
.WORD 



iRECORD STORAGE SIZE 
j DELAY COUNTER STORAGE AREA 



AREA 



j LOCAL 



T290Fi_ 

T29W.** 
T29NtF 
T29RDF 
T29RRF 



TEXT MESSAGES FOR TEST 



.ASCIZ 
, ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 



111 T29RRG: .ASCIZ 



T29SC: 
T29L0R 
T29W0F 

T29L0Q 
T29SSR 
129W0E 
T29WLK 
T29WRT 
T29B0T 
T29CUA 
T29E0T 
T29TM: 
T29RWN 
T29RNC 
T29AM3 
T290F7 
T29WD0 
T29W0C 
T29VCK 
T296A: 
T29WSS 
T29L0N 
T29L0P 
T29PBP 
T29TRL 
T29NEQ 
T29R0G 
T29RIB 
T29RRN 
TST29 T D$ 

J ♦ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



Drive is OFFLINE' 

Tap« Poo it ion Incorrect After WRITE TAPE 

WRITE TAPE MARK RETRY, At BOT, Failed To 

TSSR Incorrect After READ DATA Command* 

WRITE TAPE MARK RETRY Previous (Space Reverse. 



MARK RETRY Previous (OPP-l)' 
Set NEF (XSTO)' 



Read Forward) Command Foiled 



WRITE TAPE MARK RcTRY Previous (Read Forward, Space Reverse) Command Foiled 

POSITION (Space Command) Fa i lad. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Corract After Illagal Mode Bits Sat' 

Illegal Mode Bite. Failed To Set ILC Bit In XSTO' 

WRITE TAPE MARK RETRY COMMAND Not Accepted* 

TSSR Not Correct After SPACE REVERSE DATA Command' 

*****TAPE IS WRITE -LOCKED AND WILL CAUSE ERRORS*****' 

TSSR Not Corract After WRITE Command' 

Tape Not At BOT After REWIND Command' 

Data Written To Tap* Not Equal To Data Read From Tape' 

WRITE TAPE MARX RETRY DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

TSSR Not Correct After SPACE REVERSE Into BOT' 

Rewind (POSITION) Command Not Accepted' 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init, Failed After WRITE TAPE MARK RETRY COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR* 

TSSR Not Correct After WRITE TAPE MARK RETRY 

WRITE TAPE MARK RETRY 

VCK In Message Buffer 

WRITE TAPE MARK RETRY DATA Commond' 

Command Not Accepted (RAM Read) 
Failed To Set RLL Bit In XSTO' 
Failed To Set RLS B i t In XSTO* 



DATA 
DATA 



TSSR Not Correct After 
CVC Set, Didn' ' t Ref:et 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading LonQ Record 
Read? no Long Record 
Residual Byte Count Incorrect After Short Record Read' 
Reading Long Record Failed To Give Tape Status Alert' 

After 



Command. SW6 

Command 1 



Bit Set* 



ng Long 
Data WRITE TA"E MARK RETRY from Tape Not Correct 
TSSR Incorrect Afte- READ REVERSE Into Tape Mark 
WRITE TAPE MARK RETRY At First Record, Failed To 
TMK (XSTO) Foiled To Set After READ REVERSE Into 
ASCIZ 'Write Tape Mark Retry' 



SW8-1' 



Set RIB (XST3) 

Tope Mark' 



tROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
j WRITE SUBSYSTEM MEMORY COMMAND 

t 



T29REST} 



012701 026070 



SAVREG 
MOV 



0T29PACKET.R1 



j SAVE THE REGISTERS! 
, START OF THE PACKET 



I<8 



TEST 1 - 


HARDWARE TEST 


1-8 TEST 


TEST 1: 


WRITE 


TAPE MARK RETRY 


664 


031736 


012721 


140004 


665 


031742 


012721 


026100' 


666 


031746 


00502 I 




667 


031750 


012721 


000012 


668 


031754 


012721 


026112' 


669 


031760 


005021 




670 


031762 


012721 


000024 


671 


031766 


005021 




672 


031770 


012711 


000000 


673 


031774 


012702 


000030 


674 


032000 


012762 


177777 


675 


032006 


005742 




6 76 


032010 


020227 


000000 


677 


032014 


001371 




678 


032016 


000207 




679 








680 








681 


032020 






682 


032020 






683 


032024 


012701 


02620O' 


684 


032030 


012721 


140006 


685 


032034 


012721 


026230' 


686 


032040 


005021 




687 


032042 


012721 


000006 


688 


032046 


005021 




689 


032050 


012701 


026230' 


690 


032054 


005021 




691 


032056 


005011 




*9? 


032060 


000207 




693 


032062 






694 


0*2062 






695 


032066 


012701 


026220' 


696 


032072 


012721 


OOOOOO 


697 


032076 


012721 


000000 


698 


032102 


005021 




699 


032104 


012711 


OOOOOO 


700 


032110 


000207 




701 


032112 
0321.12 








032112 


104401 




702 








703 








704 








7J5 








706 








707 








708 








709 








710 








711 








712 








713 








714 








715 








716 








717 








718 
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026112 



MOV 


0140004, (Rl)* 


MG\< 


0T29DATA,(Rl)t 


CLR 


<R1>* 


MOV 


010..CR1)* 


MCV 


OT29BFR,(Rl)f 


an 


CRD* 


MOV 


O20.,(Rl)t 


CLR 


(R1V 


MOV 


00, (Rl) 


MOV 


024., R2 


64$: MOV 


0177777, T29BFR(R2) 


TS1 


-<R2) 


CMP 


R2,frO 


BNC 


64$ 


RTS 


PC 


T29RT2: 




SAVREG 




MOV 


0T29PK2,R1 


MOV 


0140006 ,(R1)» 


MOV 


0T29BF2,(R1)* 


CLR 


(Rl)* 


MOV 


06..CR1)* 


CLR 


CRD* 


MOV 


0T29BF2,R1 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


T29RT3J 




SAVREG 




MOV 


0T29PK3,R1 


MOV 


0O.CR1)* 


MOV 


OC.(Rl)* 


CLR 


CRD* 


MOV 


00, (Rl) ;S 


RTS 


PC 


ENDTST 





SEQ 101 



jWRITE SUBSYSTEM MEM. WITH ACK, CVC-1 

jAODSESG OF CHARAISTICS DATA BLOCK 

I EXTENDED ADDRESS 

I SIZE Of DATM BLOCK IN BYTES 

I ADDRESS OF MESSAGE BUFFER 

I LENGTH Of MESSAGE BUFFER 

j SELECT DRIVE ZERO CO) 

j NUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE DUFFER 

jNEXT LOCATION 

iCHTCK FOR ENO OF LOOP 

I KEEP GOING UNTIL DONE 

{RETURN 



; SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK.CVC*!. 

j ADDRESS OF DATA BLOCK 

jEXTENOEO ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

j POINT TO DATA SEL AREA 



jRETURN 

j SAVE THE REGISTERS 
i START OF THE PACKET 
jWRITE SUBSYSTEM MEM. WITH ACK. 
} ADDRESS OF DATA BLOCK 
j EXTENDED ADDRESS 
j SIZE OF DATA BLOCK IN BYTES 
I RETURN 



L 10036; 



TRAP 



CJETST 



.SBTTL TEST 2. SKIP TAPE MARKS 



5 * 



I THIS TEST VERIFIES PROPER OPERATION OF THE ilXlP TAPE MARKS 

i FORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPFRATION 

j UNDER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 

jSTOP (ESS) ANO ENABLE TAPE MARKS STOP OFF BOT (ENB) BITS SPECIFIED 

iBY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 

jFOLLOWING SUBTESTS (FOR EACH SUBTEST, THE TAPE IS FIRST WRITTEN 

j WITH AN APPROPRIATE SERIES OF DATA RECORDS AND/OR TAPE MARKS 

i AND/OR DOUBLE TAPE MARKS. 

J 

{THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 

i 



L8 



TEST 1 - 


HARDWARE TEST 


1-8 TEST 


MACRO M1113 Ol-rEB-84 


18:55 


SEQ 102 


TEST 2: 


SKIP TAPE MARKS 










719 










i 






720 










» _ 






721 


032114 
032114 








BGNTST 


T2:: 




722 


032114 


012737 


006166' 


002172' 


MOV 


0EPRT1.EPRTSW {PRIMARY ERROR MESSAGE 




727 


032122 


012700 


041021' 




MOV 


4TST30ID.ro jASCH MESSAGE TO IDENTIFY TEST 




728 


032126 


004737 


0.16402' 




JSR 


PCTSTSETUP {DO INITIAL TEST SETUP 




729 

730 


032132 


012737 


0O0005 


002210' 


MOV 


45.L00PCNT {PERFORM 5 ITERATIONS 




731 

732 










!TEST 2, SUBTEST 1 




733 
















734 
















735 










{VERIFIES THAT 


A SKIP TAPE MARKS FORWARD COMMAND WITH 




736 










{ A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE TAPE 




737 










iIS FIRST REWOUND, THEN WRITTEN WITH SEVERAL "FILES"; 




738 










{EACH FILE CONSISTS OF A NUMBER OF DATA RECORDS 




739 










{FOLLOWED BY A 


TAPE MARK. THE FINAL FILE IS 




740 










i TERMINATED BY 


A DOUBLE TAPE MARK, EACH DATA RECORD 




741 










{CONTAINS A FILE NUMBER AND THE RECORD NUMBER WITHIN 




742 










;THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 




743 










{VERIFIED BY READING THE DATA, THE TAPE IS AGAIN 




74* 










{REWOUND AND A 


SERIES OF SKIP TAPE MARKS FORWARD 




745 










{COMMANDS ARE 


ISSUED ANO THE RESULTS CTAPE STATUS ALERT 




746 










{TERMINATION, 


fMK-1 STATUS, TAPE POSITION VIA READ 




747 










{COMMANO) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 




748 










{COMMAND, A WRITE CHARACTERISTIC3 COMMAND IS ISSUED TO 




749 










{SET UP THE ESS AND ENB CONTROL BITS. ALL 




750 










{COMBINATIONS < 


DF ESS AND EN8 ARE USED (00,01*10. 




751 










I 115* OPERATION SHOULD BE THE SAME IN £ACH CASE FOR 




752 










{THIS SUBTEST, 






753 
















754 
















755 










, - 






756 
















757 


032140 








T30L00P: 






758 


032140 








BGNSU6 


; >>>>>>>>>>>> BEGIN SUBTEST >>>>>>*>>>>> 




032140 










T2.1: 






032140 


104402 








TRAP 


CSBSUB 


759 


032142 


004737 


041042' 




JSR 


PC.T30REST {SET COMMAND PACKET 




760 


032146 


005037 


036444' 




CLR 


T30FCN {CLEAR FILE COUNTER 




761 


032152 


004 737 


041134' 




JSR 


PC.r30RT2 {SET UP OTHER COMMANO PACKET 




762 


032156 


004737 


041176' 




JSR 


PC,T30RF3 {SET UP OTHER COMMAND PACKET 




763 


032162 


012737 


176750 


036446' 


MOV 


♦65000. .T30DLY jSET UP DELAY COUNTER 




764 


032170 


001737 


015664' 




10$: JSR 


PC.SOFINIT jDO INITIALIZE ON CONTROLLER 




765 


032174 


103426 






8CS 


20$ ,BR IF INIT WAS OK 




766 


032176 








DELAY 


250 {DELAY ROUTINE CALL 






032176 


012727 


ooorso 






MOV 


O250.CPCV 




n*22C2 


OOOrtno 








.WORD 


r 




O,-*2204 


013727 


002116' 






MOV 


lsdly.cpc)* 




032210 


000000 








.WORD 







032212 


005367 


177772 






DEC 


-6CPC) 




032216 


001375 








BNE 


. -4 




032220 


005367 


177756 






DEC 


-22CPC) 




C32224 


001367 








BNE 


. -20 


767 


032226 


005337 


036446* 




DEC 


T30DLY iBUMP COUNTER 




768 


032232 


001356 






BNE 


10$ j BR, IF MORE COUNTING TO DO 





M8 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 2: SKIP TAPE MARKS 



MACRO M1113 01-FEB-84 18:55 



SEQ 103 



769 


032231 


005237 


002214' 


773 


032240 


010001 




774 


032242 








032242 


104455 






032244 


000311 






032246 


003642' 






032250 


011724' 




775 


032252 






776 


032252 


013737 


002174' 


777 


032260 


012704 


036260' 


778 








779 








780 








781 








782 








783 








784 








785 


032264 


00473 7 


010552' 


786 


032270 


103407 




787 


032272 


005237 


002214' 


791 


032276 


010001 




792 


032300 








032300 


104456 






03230? 


000312 






032304 


005046' 






032306 


011724- 




793 


032310 








032310 


104406 




794 








795 








796 








797 








798 








799 








800 








801 


032312 


004737 


010704' 


eoa 


032316 


103411 




803 


032320 


010004 




804 


032322 


016501 


000002 


805 


032326 


005237 


002214' 


809 


032332 








032332 


104456 






032334 


000313 






032336 


040030' 






032340 


011736' 




810 


032342 








032342 


104406 




811 








812 








813 








814 








815 








816 








817 








818 


032344 


013701 


036310' 


819 


032350 


010102 




820 


032352 


052702 


000002 



036300' 



20*i 



INC 


FATFLG 


j ERROR COUNT 




MOV 


R0.R1 


j CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO, SFIERR, SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


201 






.WORD 


SFIERR 






.WORD 


SFIMSG 



MOV UNITN.T30DSW 
MOV *T30PACKET,R4 



tSET VP UNIT NUMBER 

; SUBROUTINE NEEDS PACKET ADDRESS 



. ******** ******************** ************ ** ******* ******** 

j ISSUE WRITE CHARACTERISTICS COMMAND 

j ********************************************************* 



23$: 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



5 ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 

, ERROR COUNT 
{SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



jLOOP IF SELECTED 



TRAP 



{ 4 ****************************** ************************** 

i 

; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR 10 SET 

} ************************ ********************************* 

j CALL TAPE REWIND COMMAND 
I BR, IF NO PROBLEM 
iGET PACKET ADDRESS 
;GET STATUS REGISTER 
; ERROR COUNT 
j REWIND NOT ACCEPTED 



JS.* 


PC, REWIND 


BCS 


30$ 


MOV 


R0,R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



30$ 



ERRHHD ERRNO , T30RWN , PKTSSR 



CKLOOP 



;LOOP IF SELECTEO 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



i****** ********* ****************************************** 

l GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

I********************************************************* 

{PICK UP XSTO 

j SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


#BIT1,R2 



CSERHRD 
202 

WRTMSG 
SFIMSG 

CSCLP1 



C$ERHRD 
203 

T30RWN 
PKTSSR 

C$CLP1 



N8 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 2; SKIP TAPE MARKS 



Ol-FEB-84 18?55 



SEQ 104 



821 
822 
823 
827 



828 

829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
341 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
857 



358 

859 
860 
861 
862 
863 
864 
865 
866 
86 7 
868 
86- j 
870 
871 
872 
873 



032356 
032360 
032362 
032366 
032366 
032370 
032372 
032374 
032376 
032376 
032400 
032406 
032412 
032420 



032426 
032434 
032440 
032444 
032446 
032450 
03245? 
032456 
032462 
032466 
032472 
032476 
032500 
032502 
32506 
032506 
^32510 
032512 
032514 
032516 
032516 
032520 
032522 
032526 



032530 
032536 
032542 
032546 
032552 



020102 
001406 
005237 002214 

104456 
000314 
037631' 
C.5364' 



104406 
012737 
012703 
013737 
012737 



000001 
000001 
003U6 
003720 



012737 
012704 
013702 
000302 
010301 
060201 
010X77 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000315 
036760' 
011736' 



1044C6 

005203 

020327 000021 

001331 



140005 

036410' 

036444' 



150440 

000000 

016140' 

000002 

000200 



002214 



012737 
012704 
010465 
004 73/ 
016501 



141011 

036410' 

000000 

016140' 

000002 



CMP R1,R2 

BEQ 40$ 

INC FATFLG 

EPRHRD ERRNO , T30B0T , EXPREC 



036444' 

036412' 
036416' 



40$ 



64$ 
65$ 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



01. ,T30FCN 
01, R3 

FREE.T30WB 
02000. ,T30SZ 



{DOES EXP - REC'D 

I BR. IF EQUAL COlO 

j ERROR COUNT 

{TAPE NOT AT BOT AFTER REMIND 

TR IP 
,WLRO 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 

l SET "FILE" COUNTER AT 1 DECIMAL 

{ONE RECORD PER "FILE" 

jSET UP PACKETS' S WRITE BUFFER 

{SET RECORD SIZE AT 2000 BYTES 



C$ERHRD 
204 

T30B0T 
EXPREC 

C$CLP1 



************************ '•************* * ****************** 
WRITE OATA.MCK.CVC-1 COMMAND 

********************************************************* 



036410' 



MOV 


0140005, T30PK3 


MOV 


OT30PK3.R4 


MOV 


T30FCN.R2 


SWAB 


R2 


MOV 


R3.K1 


ADD 


R2.R1 


MOV 


Rl.SFREE 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSCR05),R1 


MOV 


0S$R,R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 



70$: 



ERRHRD ERRNO , T30WDD . PKTSSR 



CKLOOP 



INC 


R3 


CMP 


R3.021 


BNE 


65$ 



{WRITE C TA.ACK.CVC-1 COMMAND 
SET UP H4 WITH PACKET ADDRESS 
GET FILE COUNTER 
MOVE TO UPPER BYTE 
{GET RECORD COUNTER 

{FILE COUNTER IN UPPER, RECORD LOW 
iMOV TO OUT PUT BUFFER 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 

j ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 
.WORD 205 
.WORC T30WDD 
.WORD PKTSSR 
{LOOP IF SELECTED 

TRAP C5CLP1 
{COUNT THE RECORD COUNTER DOWN 
{AT 20 YET 
{BR, IF NOT AT 20 RECORDS WRITTEN 



J****************************«*********+**************A*** 

! WRITS TAPE MARK,ACK,CVC«1 COMMAND 

. ****************** **********4************** ************** 



036410' 



MOV 


ei4L0U,T40PK3 


MOV 


OT30PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),Rl 



; WRITE TAPE MARK , ACK ,CVC - 1 COMMAND 
jSET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

UAIT FOR SSR TO SET 

PICK UP TSSR 



B9 



TEST i - HARDWARE TEST 1-8 
TEST 2: SKIP TAPE MARKS 



TEST MACRO M1U3 01 -FEB- VI 18t55 



SEQ 105 



SET 



874 
8/5 

876 
877 
381 



882 

883 
884 
885 
886 
887 
868 
889 
890 
891 
892 
893 
694 
895 
896 
897 
698 
899 
900 
901 
905 



906 

907 
908 
S09 
910 
911 
912 
913 
914 
915 
916 
9J7 
918 
922 



923 

924 



032556 
032562 
032564 
032566 
032572 
032572 
032574 
032576 
032600 
0JJ602 
032602 
032601 
032610 
032616 



032620 
032626 
032632 
032636 
032642 
032646 
03265.? 
03265>, 
032656 
032662 
032662 
032664 
032666 
032670 
032672 
032672 



0326 74 
032700 
032702 
032704 
032710 
032714 
032714 
032716 
032720 
032722 
032/24 

032724 



012702 000200 

020102 

001406 

005237 002214* 

104456 
000316 
040152' 
011736* 

104406 

005237 036444' 

023727 036444* 000006 

001273 



MOV *SSR,R2 

CMP R1,R2 

BEQ 160$ 

INC FATFLG 

ERRHRD ERRN0,T30WDC, PKTSSR 



160* J CKLOOP 



INC 


T30FCN 


CMP 


T30FCN.06 


BNE 


64$ 



I SET UP EXPECTED CSSR ONLY) 

»WAS STATUS GOOD 

j BR, IF TERMINATION WAS GOOD 

I ERROR COUNT 
jTSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 

.WORD 

.WORD 
WORD 
lLOOP IF SELECTED 

TRAP 
iCOUNT THE "FILE" COUNTER DOWN 
jWRITE 5 FILE TO TAPE 
iBR, IF NOT AT 5 FILES WRITTEN 



206 

T30WDC 

PKTSSR 

CiCLPl 



j********************************************************* 

jWRITE TAPE MARK,ACK,CVC»1 COMMANO 

i 

| A********* ************** ***************** ********** *** fc*4 



012737 141011 036410' 

012704 036410* 

010465 000000 

O04737 016140' 

016501 000005 

012702 000200 

020102 

001406 

005237 002214- 

104456 
000317 
040152' 

011736- 

104406 



MOV 


♦141011. T30PK3 


MOV 


♦T30PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 



ERRHRD ERRN0.T30WDC, PKTSSR 



jWRITE TAPE MARK.ACK.CVC-1 COMMANO 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

jWAIT FOR SSR TO SET 

iPICK UP TSSR 

iSET UP EXPECTED (SSR ONLY) 

iWAS STATUS GOOO 

iBR, IF TERMINATION WAS GOOO 

iERROR COUNT 
iTSSR NOT COPRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 



165$: CKLOOP 



jLOOP IF SELECTED 



.WORD 
.WORD 

.WORD 

TRAP 



207 

T30WDC 

PKTSSR 

CKLP1 



004737 010704' 

103411 

010004 

016501 000002 

005237 00<?;U4' 

104456 
000320 
040030' 
011736' 

104406 



|***«***«**«****ft*«*t************«****** ****************** 

I ISSUE A REWIND TO TAPE DRIVE ANO WAIT FOR SSR TO SET 

i 

|*****«*****************«***********************4********* 

{CALL TAPE REWIND COMMANO 
iBR, IF NO PROBLEM 
»GET PACKET ADDRESS 
jGET STATUS REGISTER 
l ERROR COUNT 
iREWINO NOT ACCEPTED 



JSR 


PC, REWIND 


BCS 


170$ 


MOV 


R0,R4 


MOV 


TSSRCR5),R1 


INC 


FATFLG 



ERRHRD ERRNO. T30RWN, PKTSSR 



170$; CKLOOP 



iLOQP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERKRD 
208 

T30RWN 
PKTSSR 

CSCLP1 



ii l 2i gft?B w ^E T K*Ki- 



C9 



8 TEST MACRO M1113 Ol-FEB-84 18t55 



SEQ 106 



925 
426 
927 
926 
929 
930 
931 
932 
933 
934 
935 
936 
940 



941 

942 
943 
944 
945 
946 
947 
94ft 
949 
950 
951 
952 
953 
954 
955 
959 
960 



961 

962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 



032726 
032732 
03i: fZA 
032740 
032742 
032744 
032750 
032750 
032752 
032754 
032756 
032760 
032760 
032762 
032766 
032774 
033000 



033004 
033010 
033012 
033016 
033020 
033020 
033022 
033024 
033026 
033030 
033030 



033032 
033040 
033046 

033052 
033056 
033064 
033070 
033074 
033100 



013701 036310' 

010102 

052702 000002 

020102 

001406 

005237 0022 14* 

104456 
000321 
037631' 
015364' 

104406 

012703 036426' 
013737 002174' 
011337 036276' 

012704 036260' 



004737 
103407 
00523V 
010001 

104456 
0O0322 
005046' 

011724' 

104406 



010552' 
002214' 



012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 



141010 

000001 

036410' 

000000 

176750 

016140 

000002 

000200 



036300 



036410 
036412 



036446 1 



I********************************************************* 

jGET EXTENDED STATUS REGISTER ZERO (XbTO) FROM MESSAGE BUFFER 

J 
)*************************************.******************** 



ieos{ 



132$: 



MOV 


T306FH»6,R1 


,PICK UP XSTO 




MOV 


R1.R2 


jSET UP EXPECTED 




BIS 


#BIU,R2 


■SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


iDOES EXP • REC'D 




BEQ 


180$ 


»BR, IF EQUAL (OK) 




INC 


FATFLG 


1 ERROR COltU 




ERRMRD 


ERRN0.T30B0T.EXPREC 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


CIEPMRD 






.WORD 


209 






.WORD 


T30BOT 






.WORD 


EXPREC 


CKIOOP 




jLOOP IF SELECTED 








TRAP 


CICLP1 


MOV 


♦T30IMV.R3 


iSET UP POINTER TO COMMAND TABLE 


MOV 


UNITN.T300SU 


»SET UP UNIT NUMBER 




MOV 


CR3),T30E1rt 


iGET NEXT COMMAMD 




MOV 


OT30PACKET.R4 


(SUBROUTINE NEEDS PACKET ADDRESS 



I********************************************************* 

iISSl* WRITE CHARACTERISTICS COMMAND 
l*******o********************** *************************** 



JSR 


PC.WRTCHR 


OCS 


188$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO,WRTMSG,SFIMSG 



188$} CKLOOP 



t ISSUE WRITE CHARACTERISTICS 
|BR, IF COMMAND ISSUED OK 

i ERROR COUNT 
iSAVE CONTENTS OF TSSR 
IWRITE CHARACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



jLOOP IF SELECTED 



TRAP 



C$ERHUD 
210 

WRTMSG 
SFIMSG 

C'.CLPl 



*** 



j***************************************** ********** 

l SKIP TAPE MARK.ACK.CVC-1 COMMAND 

i 

I ********** *********«*****************.*,** ****** *********** 



MOV 0141010, T30PK3 

MOV 01.T30RB 

MOV #T30PK3,R4 

189$ j MOV R4,TSDB(R5) 

MOV 065000. ,T30DLY 

I90*t JSR PC.WAITf 

MOV TSSR(R5),R1 

BIT 0SSR«RI 

BNE 191$ 



I SKIP TAPE MARK.ACK.CVC-1 COMMAND 

l SET UP NUMBER TO SKIP 

iSET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMANO 

jSET \JP DELAY COUNTER 

iWAIT FOR SSP TO SET 

iPICK UP TSSR 

lIS SSR SET YET 

|BR« IF SSR IS SET 



978 



»wi^y- 8 



D9 



TEST MACRO MU13 01-FEB-84 16:55 



979 
980 
981 
982 
983 
984 
988 



989 

990 

991 

992 

993 

994 

995 

9% 

997 

998 

999 

1000 

1001 

1002 

1006 



1007 

1008 
1009 
1010 
1011 
1012 
1013 
1014 
1C15 
1016 
1017 
1018 
1019 
1020 
1021 
1022 



033102 
033102 
033106 
033110 
033114 
033116 
033122 
033124 
033130 
033132 
033136 
033140 
033144 
033146 
033150 
033154 
033154 
03311*6 
033160 
033162 
033164 
033164 



033166 
033172 
033174 
033200 
033202 
033204 
033210 
033210 
033212 
033214 
033216 
033220 
033220 
033222 
033226 
033232 



033240 
033246 
033252 
033260 

033264 



012727 
OOC-000 
0X3727 
OOOCOO 
005367 
001375 
005367 
00136.7 
005337 
001352 
012702 
0^0102 
CO1406 
005237 

104456 
000323 
036704 
011736 

104406 



000250 

002116' 

177772 

177756 

036446' 

000200 

002214' 



C36310' 
100000 



002214 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000324 
040304 
015364 



104406 

012700 177777 

004737 017314 

013737 003116 



012737 140001 

012704 036410' 

012737 003720 

010465 000000 

004737 016140 



036412 



036410' 
036416' 



DELAY 250 



191*5 



DEC 


T30DLY 


BNE 


1901 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


1921 


INC 


FATFLG 



ERRHRD ERRNO , T30SKM , PKTSSR 



192$: CKLOOP 









SEQ 107 


» CALL DELAY ROUTINE 












MOV 


#250, CPC)* 






,WORD 









MOV 


l»dly,cpo» 






.WORD 









DEC 


-6CPC) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


.-20 


»BUMP DELAY ROUTINE 








|BR, IF MGRF. DELAY TO 


GO 




iSET UP EXPECTED (SSR 


ONLY) 




jWAS STATUS GOOD 








jBR, IF TERMINATION WAS 


GOOD 




I ERROR COUNT 








jTSSR NOT CORRECT AFTER 


SKIP ! 


APE M. 






TRAP 


CJERHRD 






.WORD 


211 






.WORO 


T30SKM 






.WORD 


PKTSSR 



jLOOP IF SELECTED 



TRAP 



C$CLP1 



iGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

I 



MOV 


T30eFR*6,Rl 


MOV 


R1.R2 


BIS 


#6IU5,R2 


CMP 


R1.R2 


BEQ 


1951 


INC 


FATFLG 



ERRHRD ERRNO, T30TMK.EXPREC 



195$ 



CKLOOP 

MOV 
JSR 
MOV 



#177777, RO 
PC, FILLMEM 
FREE.T30RB 



iPICK UP XSTO 

l SET IP EXPECTED 

iSET TMK BIT IN EXPECTED 

>DOES EXP • REC'D 

jBR, IF EQUAL COK) 

j ERROR COUNT 

»TMK NOT SET AFTER WRT TAPE MARK 

TRAP C$ERHRD 
.WORD 212 
.WORD T30TMK 
.WORD EXPREC 

jLOOP IF SELECTED 

TRAP CSCLK 

I VALUE TO WRITTEN TO MEMORY 

j FILL MEM WITH ALL ONES 

jSTARTING READ BUFFER ADDRESS 



j**#***A^*^#*****#********#**^**************+***^ ********* 

I READ FORWARD. ACK.CVC-1 COMMANO 

J 



MOV #140001, T30PK3 

MOV #T30PK3.R4 

MOV #2000.,T30SZ 

MOV R4.TS0BCR5) 

JSR PC.WAITF 



I READ FORWARD, ACK.CVC-1 COMMANO 
I SET UP R4 WITH PACKET ADDRESS 
j SET UP RECORD SIZE IN PACKET 
j ISSUE COMMANO 
tWAIT FOR SSR TO SET 
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SEQ 108 



1023 
1024 
1025 
1026 
102 7 
1031 



1032 

1033 
1034 
1035 
1036 
1037 
1041 



1042 

1043 
1044 
1045 
1046 
1047 
1051 



1052 

1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1068 



1069 

1070 
1071 



033270 
033274 
033300 
033302 
033304 
033310 
033310 
033312 
033314 
033316 
033320 
033320 
033322 
033326 
033332 
033334 
033336 
033342 
033342 
033344 
033346 
C33350 
033352 
033352 
033354 
033360 
033364 
033366 
033370 
033374 
033374 
033376 
033400 
03340? 
033404 
033404 



033406 
033412 
033414 
033416 
033422 
033426 
033426 
033430 
033432 
033434 
033436 
033436 



016501 
012702 
020102 
001406 
005237 

104456 
000325 
037203* 
011736' 

104406 
03 7701 
012702 
020102 
001006 
005237 

104456 
000326 
040660' 
015364' 

104406 
012702 
017701 
020201 
001406 
005237 

104456 
000327 
037032' 
015364' 

104406 



004737 
103411 
010004 
016501 
005237 

104456 
000330 
040030 
011736 

104406 



000002 
000200 



002214 



147570 
177777 



002214' 



001001 
147532 



002214* 



010704 



000002 
002214' 



MOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 


MOV 


*SSR,R2 


j SET UP EXPECTED 


CMP 


R1.R2 


j ARE THE1 EQUAL 


BEQ 


200* 


jBR, IF OK 


INC 


FATFLG 


, ERROR COUNT 


ERRHRD 


ERRN0.T30RDF .PKTSSR 


j TSSR INCORRECT AFTER WRITE DATA 



200*: CKLOOP 



MOV 


SFREE.R1 


MOV 


$177777. R2 


CMP 


R1.R2 


BNE 


220$ 


INC 


FATFLG 


ERRHRD 


ERRN0«T3ODTR, EXPREC 



220$ i CKLOOP 



228$? CKLOOP 



TRAP C$ERHRD 
.WORD 213 
.WORD T30RDF 
.WORD PKTSSR 

lLOOP IF SELECTED 

TpAp C$CLP1 

j FIRST LOC IN READ BUFFER 

I EXPECTED IF NO DATA TRANS. 

I DID ANY DATA GET TRANSFERRED 

»BR, IF NO DATA TRANS (GOOD) 
I ERROR COUNT 

I DATA TRANSFERRED ON READ TAPE MARK 



C$ERHRD 
214 

T30DTR 
EXPREC 

C$CLP1 



MOV 


01001, R2 


MOV 


se-REE.fU 


CMP 


R2.R1 


BEQ 


228$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T3OPTB, EXPREC 



TRAP 

.WORD 

.WORD 

.WORD 
»LO0P IF SELECTED 

TRAP 

jSET UP RECORD NLtlBER EXPECTED (FILE 2) 
^GET INFO FROM BUFFER 
jARE THEY EQUAL 
jBR, IF EQUAL (OK) 

j ERROR COUNT 
{RECORD POSITION WAS NOT CORRECT 

TRAP C$ERHRD 

.WORD 215 

.WORD 

.WORD 
l LOOP IF SELECTED 

TRAP 



T30PTB 
EXPREC 



C$CLP1 



}*******************************«************************* 

! ISSUE A REWINO TO TAPE DRIVE AND WAIT FOR SSR TO SET 

i 

| *********************** ****** *********** *************** ** 

j CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
i SAVE PACKET ADDRESS 
jGET TSSR STATUS 

j ERROR COUNT 
ERRHRD ERRN0.T3ORWN, PKTSSR j REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


230$ 


MOV 


R0.R4 


MOV 


TSSR(R5).R1 


INC 


FATFLG 



230$: CKLOOP 



lLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


21b 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



1************4***************'***************** * ********** 
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SEQ 109 



1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1086 



1087 

1088 
1089 
1090 
1091 
1092 
1093 

1094 



1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 



1114 
1115 
1116 

1117 
1118 
1119 
1120 
1121 



033440 
033444 
033446 
033452 
033454 
035456 
033462 
033462 
033464 
033466 
033470 
033472 
033472 
033474 
033476 
033500 
033504 
033506 
033512 
033512 
033514 
033514 
033514 
033516 
033524 
033526 
033532 



033532 
033532 
033532 
033534 
033540 
033544 
033550 
033554 
0^3562 
033566 
033570 



iGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

l 



013701 036310' 

0*,0102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000331 
037631' 
015364' 

104406 

005723 

011301 

020127 177777 

001402 

000137 032774 

104406 



104403 

023727 002214' 000017 

103402 

004737 017074' 



240$ 



330$ 



MOV 


T30BFR+6.R1 


iPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


08IT1.R2 


jSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


lOOES EXP - REC'D 




BEQ 


240$ 


»BR, IF EQUAL COK) 




INC 


FATFLG 


i ERROR COUNT 




ERRHRD 


ERRN0,T30B0T,EXPREC 


j TAPE NOT AT BOT AFTER REWIND 








TRAP 


C$ERHRD 






.WORD 


217 






.WORD 


T30B0T 






.WORD 


EXPREC 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CLP1 


TST 


CR3)> 


j POINT TO NEXT POSITION 




MOV 


CR3),R1 


j GET NEXT COMMAND ETC. 




CMP 


Rl.*177777 


j END OF TABLE MARKER 




BEQ 


330$ 


j BR, IF AT ENO OF TABLE 




JMP 


182$ 


j JUMP TO MORE COMMANDS TO DO 




CKLOOP 




j LOOP IF SELECTED 








TRAP 


C$CLP1 


EN0SU6 




l<<<<<<<<<<< END SUBTEST >>>>*>>v>>> 






L 10044: 








TRAP 


C$ESU6 


CMP 


FATFLG, ^15. 


j IS ERROR COUNT AT 25 




BLO 


999$ 


jBR, IF LESS THAN 25 




JSR 


PC*CKDROP 


{TRY TO DROP THE UNIT 





999$ 



TEST 2, SUBTEST 2 

VERIFIES THM SKIP TAPE MARKS COMMANDS WITH A TAPE 
MARK COUNT GREATER THAN 1 OPERATE PROPERLY, COUNTS 
OF 2.3.8.64.256, AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



BGNSU6 



j >>>>>>>>>>>> 



104402 
004737 
005037 
0047.7 
004737 
012737 
004737 
103426 



041042' 

036444' 

041134' 

041176* 

176750 

015664' 



BEGIN SUBTEST 
T2,2: 

TRAP 



>>>>>>>>>>>> 



C$BSUB 



036446 



10$ 



JSR 


PC.T30REST 


CLR 


T70FCN 


JSR 


PC.T30RT2 


JSR 


PCT30RT3 


MOV 


065000. .T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



j SET COMMAND PACKET 

I CLEAR FILE COUNTER 

j SET UP OTHER COMMAND PACKET 

»SET UP OTHER COMMAND PACKET 

{SET \p DELAY COUNTER 

$00 INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I DELAY ROUTINE CALL 
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TEST 1 - HARDWARE TEST 1-8 TEST 
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1122 
1123 
1124 
1128 
1129 



1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1146 
1147 



1148 

1149 
11j0 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1164 



1165 



033570 
03357* 

033576 
033602 
033604 
033610 
033612 
033616 
033620 
033624 
033626 
033632 
033634 
033634 
033636 
U33640 
033642 
033644 
033644 
033652 



033656 
033662 
033664 
033670 
033672 
033672 
033674 
033676 
033700 
033702 
033702 



033704 
033710 
033712 
033714 
033720 
033724 
033724 
033726 
033730 
033732 
033 734 
033734 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000332 
003642 ' 
011724' 

013737 
012704 



004737 
103407 
005237 
010001 

104456 
000333 
005046' 
011724' 

104406 



004737 
103411 
010004 
016501 
005237 

104456 
000334 
040030' 
011736' 

104406 



000250 

002116' 

.177772 

177756 

036446 

002214' 



002174 
036260' 



010552 
002214 



010704 



000002 
002214' 



036300' 



FEB -84 


18:55 




MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


SEQ 110 

#250, (PC)* 



L$DLY.CPC)f 



-6(PC) 

. -4 

-22CPC) 

.-20 


DEC 


T300LY 




j BUMP COUNTER 




BNE 


10* 




|BR. IF MORE COUNTING TO DO 




INC 


FATFLG 




t ERROR COUNT 




MOV 


R0.R1 




j CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO, 


SFIERR. SFIMSG 


I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


CIERDF 
218 

SFIERR 
SFIMSG 


MOV 


UNITN. 


T30DSW 


j SET UP UNIT NUMBER 




MOV 


0T30FACKET.R4 


j SUBROUTINE NEEDS PACKET ADDRESS 



20$: 



t ***** >*************************+************************* 

;ISSUE WRITE CHARACTERISTICS COMMAND 
» 

j ********************* ***********************£** ********** 



23$: 



JS9 PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 

ERRHRD ERRNO . WRTMSG . SF IMSG 



CKLOOP 



j ISSUE WRITE CHARACTERISTICS 
I BR. IF COMMAND ISSUED OK 

I ERROR COUNT 
;SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



jLOOP IF SELECTED 



TRAP 



C$ERHRD 
219 

WRTMSG 
SFIMSG 

CSCLPl 



1***************4***************************************** 

llSSUi* A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

j ** + *************************** + *<.*************** ********* 

j CALL TAPE REWIND COMMAND 
I BR, IF NO PROBLEM 
iGET PACKET ADDRESS 
iGET STATUS REGISTER 
I ERROR COUNT 
j REWIND NOT ACCEPTED 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLU 



30$: 



ERRHRD ERRNO. T30RWN.PKTSSR 



CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CSERHRD 

220 

T30RWN 

PKTSSR 

CSCLPl 
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TEST I - HARDWARE TEST 
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1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1182 



-8 TEST MACRO M1U3 01-FE8-84 18:55 



SEQ 111 



1183 

1184 
11S5 
1186 
1187 
1188 
11C9 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
3207 
1208 
1212 



1213 

1214 
1215 
1216 

1217 
1218 



033736 
033742 
033744 
033750 
033752 
033754 
033760 
033760 
033762 
033764 
033766 
033770 
033770 
033772 
034000 
034004 
034012 



034020 
034026 
034032 
034036 
034040 
034042 
034044 
034050 
034054 
034060 
034064 
034070 
034072 
034074 
034100 
034100 
034102 
034104 
034106 
034110 
034110 
034112 
034114 
034120 



j ******* ************ ************ +* ****** ****************** 

{GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

i 

j ************************************************** ******* 



013701 036310* 

010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000335 
037631' 
015364' 

104406 

012737 000001 036444' 

012703 000001 

013737 003116' 036412' 

012737 000024 036416' 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


40* 


INC 


FATFLG 



ERRHRD ERRNO , T30B0T , EXPREC 



40$ 



64*: 
65*: 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



•I. ,T30FCN 
♦ 1.R3 

FREE.T30WB 
*20,,T30SZ 



{PICK UP XSTO 

iSFT UP EXPECTED 

(SET BOT BIT IN EXPECTED 

I DOES EXP • REC'D 

j BR, IF EQUAL (OK) 

j ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{SET "FILE" COUNTER AT 1 DECIMAL 

I ONE RECORD PER "FILE" 

{SET UP PACKETS' S WRITE BUFFER 

{SET RECORD SIZE AT 2000 BYTES 



C*ERHRO 
221 

T3060T 
EXPREC 

C*CLP1 



I **************************** ***************************** 

{WRITE DATA.ACK.CVC-1 COMMAND 

J 
********************************************************** 



012737 140005 036410 

012704 036410' 

013702 036444' 

000302 

010301 

060201 

010177 147046 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 

020102 

001406 

005237 002214* 

104456 
000336 
036760* 

011736' 

104406 

005203 

020327 000021 

001331 



MOV 


#140005, T30PK3 


MOV 


*T30PK3,R4 


MOV 


T30FCN.R2 


SWAB 


R2 


MOV 


R3.R1 


ADD 


R2.R1 


MOV 


Rl.SFREE 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


Rl,R2 


BEQ 


70* 


INC 


FATFLG 



70*; 



ERRHRD ERRNO . T30WDD , PKTSSR 



CKLOOP 



INC 


R3 


CMP 


A3, 021 


BNE 


65* 



{WRITE DATA,ACK.CVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

jGET FILE COUNTER 

{MOVE TO UPPER BYTE 

{GET RECORD COUNTER 

I FILE COUNTER IN UPPFR, RECORD LOW 

{MOV TO OUT PUT BUFFER 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

iBR. IF OK 

{ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP C*ERHRD 

.WORD 222 
.WORD T30WD0 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C*CLP1 

{COUNT THE RECORD COIMTER DOWN 

{AT 20 YET 

{BR, IF NOT AT 20 RECORDS WRITTEN 



j ****************************/ **************.************** 
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TEST 2; 
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1219 








1220 








1221 








1222 








1223 








1224 


034122 


012737 


141011 


1225 


034130 


012704 


036410' 


1226 


034134 


010465 


000000 


1227 


034140 


004737 


016140' 


1220 


034144 


016501 


000002 


1229 


03*150 


012702 


000200 


1230 


034154 


020102 




1231 


034156 


001406 




1232 


034160 


005237 


002214' 


1236 


034164 








034164 


104456 






034166 


000337 






034170 


040152' 






034172 


011736' 




1237 


034174 








034174 


104406 




1238 


034176 


005237 


036444' 


1239 


034202 


023727 


036444' 


1240 


034210 


001273 




1241 








1242 








1243 








1244 








1245 








1246 








1247 








1248 


034212 


012737 


141011 


1249 


034220 


012704 


036410' 


1250 


034224 


010405 


000000 


1251 


034230 


004737 


016140' 


1252 


034234 


Olo501 


000002 


1253 


034240 


012702 


000200 


1254 


034244 


020102 




1255 


034246 


001406 




1256 


034250 


005237 


002214' 


1260 


034254 








034254 


104456 






034256 


000340 






034260 


040152' 






034262 


011736' 




1261 


034264 








034264 


104406 




1262 








1263 








1264 








1265 








1266 








1267 








1268 








1269 


034266 


004737 


010704 4 


1270 


034272 


1034U 




1271 


034274 


010004 





MACRO M1113 01-FEB-84 18:55 



SEQ 112 



036410' 



000031 



0364 10' 



{WRITE TAPE MARK,ACK,CVC-1 CCMMANO 

i 

j ********************************************************* 



MOV 


#141011, T30PK3 


MOV 


#T30PK3,R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MCV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


160$ 


INC 


FATFLG 



160$ 



ERRHRO ERRNO, T30WDC.PKTSSR 



CKLOOP 



INC 


>^OFCN 


CMP 


T3OFCN.025. 


BNE 


641 



IWRITE TAPE MARK,ACK f CVC-l COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

I WAIT FOR SSR TO SET 

j PICK UP TSSR 

iSET UP EXPECTED CSSR ' '. Y) 

I WAS STATUS GOOD 

I BR, IF TERMINATION WAS GOOD 
I ERROR COUNT 

i TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CIERHRD 
.WORD 223 
.WORD T30WDC 
.WORD PKTSSR 

j LOOP IF SELECTED 

TRAP CSCLP1 

I COUNT THE "FILE" COUNTER DOWN 

{WRITE 25 FILES TO TAPE 

{BR, IF NOT AT 25 FILES WRITTEN 



j ************************************** ******************* 

tWRITE TAPE MARK.ACK.CVC-1 COMMAND 

. ***************** *************************** ************** 



MOV 


#141011, T30PK3 


MOV 


#T30PK3,R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSRCR5) f Rl 


MOV 


#SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


INC 


FATFLG 



ERRHRD ERRNO . T30WDC , PKTSSR 



lURITt TAPE MARK.ACK.CVC-1 COMMAND 

iSET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMAND 

j WAIT FOR SSR TO SET 

iPICK UP TSSR 

iSET UP EXPECTED (SSR ONLY) 

{WAS STATUS GOOD 

i BR. IF TERMINATION WAS GOOD 

jERROR COUNT 
{TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP C$ERHRD 



1651; CKLOOP 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



224 

T30WDC 
PKTSSR 

C$CLP1 



}**************»AW*****«*************«******************** 

{ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

l 

j*** v ********* ******************************************** 

{CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
{GET PACKET ADDRESS 



JSR 


PC, RE WIND 


BCS 


170$ 


MOV 


R0.R4 



J9 



TEST I - HARDWARE TEST 1-0 TEST 
TEST 2; SKIP TAPE MARKS 



MACRO M1113 Ol-FEB-84 18{S5 



SEQ 113 



1272 034276 


016501 


000002 


1273 03<302 


005237 


002214' 


1277 034306 






034306 


104456 




034310 


000341 




034312 


040030' 




034314 


011736' 




1278 034316 






034316 


104406 




1279 






1280 






1281 






1282 






1283 






1284 






.1285 






1286 034320 


013701 


036310' 


1287 034324 


010102 




1288 034326 


052702 


000002 


1289 034332 


020102 




1290 034334 


001406 




1291 034336 


005237 


002214' 


1295 034342 






034342 


104456 




03*344 


000342 




034346 


037631' 




034350 


015364' 




1296 034352 






034352 


104406 




1297 034354 


012737 


000002 036444' 


1298 034362 


012/03 


036426' 


1299 034366 


013737 


002174' 036300' 


1300 034374 


011337 


036276' 


1301 034400 


012704 


036260' 


1302 






1303 






1304 






12>05 






1306 






1307 






1308 






1309 034404 


004737 


010552* 


1310 034410 


103407 




1311 034412 


005237 


002214' 


1315 034416 


010001 




1316 034420 






034420 


104456 




034422 


000343 




034424 


005046' 




034426 


011724' 




1317 034430 






034430 


104406 




1318 






1319 






1320 






1321 






1322 







MOV TSSR(R5),R1 

INC FATFLG 

ERRHRO ERRNO ♦ T30RWN . PKTSSR 



170* s CKLOOP 



jGET STATUS REGISTER 






; ERROR COUNT 






I REWIND NOT ACCEPTED 








T*AP 


C*ERHRD 




.WORD 


225 




.WOKU 


T30RWN 




.WORD 


PKTSSR 



{LOOP IF SELECTED 



TRAP 



C*CLP1 



********************************************************** 

I 

iGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

J 

( ****** A** ************************************* *********** 



MOV 


T30BFRf6,R! 


MOV 


R1.R2 


BIS 


*8IT1,R2 


CMP 


R1.R2 


BEQ 


180* 


INC 


FATFLG 



180* 



182* 



ERRHRD ERRNO, T30B0T.EXPREC 



CKLOOP 



MOV 


*2,T30FCN 


MOV 


♦T30IMV.R3 


MOV 


UNITN,T30DSW 


MOV 


(R3),T30ETM 


MOV 


0T30PACKET.R4 



iPICK UP XSTO 

iSET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

iBR, IF EQUAL COK) 

j ERROR COUNT 

;TAPE NOT AT BOT AFTER REWINO 

TRAP C*ERHRD 
.WORD 226 
.WORD T30B0T 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP C*CLPt 

j SET TO NUMBER OF SKIP "FILES" 

j SET UP POINTER TO COMMAND TABLE 

j SET UP UNIT NUMBER 

jGET NEXT COMTANO 

! SUBROUTINE NEEDS PACKET ADDRESS 



;***** ****************** ******4^* ************* ****** ******* 

j ISSUE WRITE CHARACTERISTICS COMMAND 

i* ************ ******************************************** 



JSR PC.WRTCUrt 

BCS 188* 

INC FATFLG 

MOV R0,R1 

ERRHRD ERRNO, WRTMSG, SFIMSG 



188* s CKLOOP 



{ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMAND ISSUED OK 

i ERROR COUNT 
j SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



I LOOP IF SELECTED 



TRAP 



C*ERHRD 
227 

WRTIiSG 
SFIMSG 

C*CLP1 



I********************************************************* 

j SKIP TAPE MARK,ACK,CVC*1 COMMAND 

J 



I<9 



TEST i - HARDWARE TEST 1-8 
TEST 2 : SKIP TAPE MARKS 



TEST MACRO M1U3 01-FE8-84 18:55 



SEQ 114 



1323 
1354 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 



1335 
1336 
1337 
1338 
1339 
1340 
1344 



1345 

1346 
1347 
1348 
1349 
1350 
1351 
1352 
iv;* 

1354 
1355 
1356 
1357 
1358 
1362 



1363 

1364 
1365 

1366 
136 7 



034432 
034440 
034446 
034452 
03445C 
034464 
034470 
0344 74 
034300 
034502 
034502 
034506 
034510 
034514 
034516 
034522 
034524 
034530 
034532 
034536 
034540 
034544 
034546 
034550 
034554 
034554 
034556 
034560 
034562 
034564 
034564 



034566 
034572 
034574 
034600 
034602 
034604 
034610 
034610 
034612 
034614 
034616 
034620 
034620 
034622 
034626 
034632 



012737 
013737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
00136/ 
005337 
001352 
012702 
020102 
001406 
005237 

104456 
000344 
036704 
011736 1 

104406 



013701 
010102 
052702 
020102 
001406 
005237 

104456 
000345 
040304 
015364 

104406 
012700 
004737 
013737 



j ********* *** N \******* ****** ********************** ******* A* 



141010 036410 

056444' 036412 

036410* 

000000 

176750 036446 

016140' 

000002 

000200 



000250 

002116' 

177772 

177756 

036446' 

000200 

002214' 



189$: 
190$: 



036310 
100000 



002214 



MOV 0141010 ,T30PK3 

MOV T3OFCN,T30RB 

MOV OT30PK3.R4 

MOV R4.TSDBCR5) 

MOV 065000. ,T30DLY 

JSR PC.WAITF 

MOV TSSR(R5),R1 

BIT 0SSR.R1 

BNE 191$ 

DELAY 250 



{SKIP TAPE MARK,4CK,CV01 COMMAND 

» SET VP NUMBER TO SKIP 

,SET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMAND 

»SET UP DELAY COUNTER 

I WAIT FOR SSR TO SET 

,PICK UP TSSR 

j IS SSR SET YET 

iBR, IF SSR IS SET 

{CALL DELAY ROUTINE 



MOV 


W250,CPC)f 


.WORD 





MOV 


L$DLY,CPO- 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 



191$ 



DEC 


T30DLY 


BNE 


190$ 


MOV 


0SSR.P2 


CMP 


R1.R2 


BEQ 


192$ 


in: 


FATFLG 


ERRHRD 


ERRN0,T30SKM,PKTSSR 



192$ 



CKLOOP 



j BUMP DELAY ROUTINE 

;BR, IF MORE DELAY TO GO 

{SET UP EXPECTED (SSR ONLY) 

{WAS STATUS GOOD 

}BR, IF TERMINATION WAS GOOD 
jERRCW COUNT 

,TSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAf C$ERHRO 
.WORD 228 
.WORD T30SKM 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 



; ********************************************************* 

{GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

I 

I ** ****************************** A***.********************* 



MOV 


T30BFR*6,R1 


MOV 


R1»R2 


BIS 


0BIU5.R2 


CMP 


R1.R2 


BEQ 


195* 


INC 


FATFLG 



ERRHRD ERRN0.T30TMK.EXPREC 



195$ 



177777 
017314' 
003116 036412 



CKLOOP 

MOV 
JSR 
MOV 



0177777, RC 
PC.FILLMEM 
FREE.T30RB 



j PICK UP XSTO 

{SET UP EXPECTED 

{SET TMK BIT IN EXPECTED 

{DOES EXP - REC'D 

jBR, IF EQUAL COK) 

{ERROR COUNT 
{TMK NOT SET AFTER UIRT TAPE MARK 

TRAP C$ERHRD 

.WORD 

.WORD 

.WORD 
{LOOP IF SELECTED 

TRAP 
j VALUE TO WRITTEN TO MEMORY 
{FILL MEM WITH ALL ONES 
{STARTING READ BUFFER ADDRESS 



229 

T30TMK 

EXPREC 

CSCLP1 



L9 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 2. SKIP TAPE MARKS 



Ol-FEB-64 10:55 



SEQ 115 



1368 






1369 






1370 






1371 






1372 






1373 






.137/| 034640 


012737 


140001 036410' 


1375 034646 


012704 


036410' 


1376 034652 


012737 


000024 036416' 


1377 034660 


010465 


000000 


1378 034664 


004737 


016140 


1379 034670 


016501 


000002 


1380 034S74 


012702 


000200 


1381 034700 


020102 




1382 034702 


001406 




1383 034704 


005237 


002214' 


1387 034710 






034710 


104456 




034712 


000346 




034714 


037203' 




034716 


011736' 




1388 034720 






034720 


104406 




1389 034722 


017701 


146170 


1390 034726 


012702 


177777 


1391 034732 


020102 




1392 034734 


001006 




1393 034736 


005237 


002214' 


1397 034742 






034742 


10445* 




034744 


000347 




034746 


O4O660' 




034750 


015364' 




1398 034752 






034752 


104406 




1399 034754 


013702 


036444' 


1400 034 760 


005202 




1401 034762 


000^02 




1402 034764 


052702 


000001 


1403 034 770 


017701 


146122 


1404 034774 


020201 




1405 034776 


001406 




1406 035000 


005237 


002214' 


1410 035004 






035004 


104456 




035006 


000350 




035010 


037032 4 




035012 


015364' 




1411 035014 






035014 


104406 




1412 






1413 






1414 






1415 






1416 






1417 






141Q 







, ************************************ + + + 4. + + + + + + + + + + + + + + ** + 

{READ FORWARD, ACK.CVC-1 COMMAND 
*************************** \************************ ;***** 



200$ 



MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



220$ 



CKLOOP 



228$ 



CKLOOP 



*140001, T30PK3 

0T30PK3.R4 

020..T30SZ 

R4,TSDB(R5) 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1.R2 

200$ 

FATFLG 

ERRNO.T30RDF.PKTSSR 



MOV 


BFREE.Rl 


MOV 


*177777,R2 


CMP 


R1.R2 


BNE 


220$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T30DTR, EXPREC 



MOV 


T30FCN.R2 


INC 


R2 


SWAB 


R2 


BIS 


08IT0.R2 


MOV 


BFREE.Rl 


CMP 


R2.R1 


BEQ 


228$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T30PTB, EXPREC 



{READ FORWARD. ACK.CVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

j BR, IF OK 

{ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 

TRAP CvcRHRD 
.WORO 230 
.WORD T30RDF 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{FIRST LOC IN READ BUFFER 

{EXPECTED IF NO DATA TRANS. 

{DID ANY DATA GET TRANSFERRED 

jBR ; IF NO DATA TRANS CUOOD) 
{ERROR COUNT 

{DATA TRANSFERRED ON READ TAPE MARK 

TRAP C$ERHRD 
.WORD 231 
.WORD T30DTR 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

{GET NUMBER OF SKIPS 

;SET TO CORRECT FILE VALUE 

{SWAP BYTE HALVES 

{SET FOR RECORD 01 

j GET INFO FROM BUFFER 

{ARE THEY EQUAL 

jBR, IF EQUAL (OK) 

{ERROR COUNT 

{RECORD POSITION WAS NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
232 

T30PTB 
EXPREC 

C$CLP1 



I it******************************************************* 

! ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

J 

j *** ***************************************** ************* 



M9 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO MU13 
TEST 2: SKIP TAPE MARKS 



Ol-FEB-84 18:55 



SEQ 116 



1419 
1420 
1421 
1422 
1423 
1427 



1428 

1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1445 



1446 

1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 

1457 



1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 

1468 



035016 

035022 
035024 
035026 
035032 
035036 
035036 
035040 
035042 
035044 
035046 
035046 



035050 
035054 
035056 
035062 
035064 
035066 
035072 
035072 
035074 
035076 
035100 
035102 
035102 
035104 
035106 
035110 
035114 
035116 
035122 
035124 
035126 
035132 
035136 
035136 
035140 
035140 
055J.40 
03 j 7.42 
0351.50 
0353 52 
035156 



004737 010704* 

103411 

010004 

016501 000002 

005237 002214' 

104456 
000351 
040030' 
011736' 

104406 



JSR 


PC .REWIND 




{CALL TAPE REWIND COMMAND 




BCS 


230$ 




j BR, IF NO PROBLEM 




MOV 


R0.R4 




j SAVE PACKET ADDRESS 




MOV 


TSSRCR5),R1 




{GET TSSR STATUS 




INC 


FATFLG 




; ERROR COUNT 




ERRHRD 


ERRN0,T3ORWN 


PKTSSR 


{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
233 
T30RWN 
PKTSSR 



230$ j CKLOOP 



{LOOP IF SELECTED 



TRAP 



C$CLPL 



013701 
010102 
052702 
020102 
001406 
00523 7 

104456 
000352 
037631' 
015364' 

104406 
005723 
011301 
020127 
001410 
013701 
000241 
006101 
010137 
000137 

104406 



036310' 
000002 

002214 ' 



| *4.****«+****4^ + ** + ***** 4^ ************* 4 ********* ********* 

ICET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

;******************************************************+** 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

;DOES EXP « REC'D 

i BR, IF EQUAL (OK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
WORD 

TRAP 



MOV 


T30BFR+6.R1 


MOV 


R1.a2 


BIS 


06171, R2 


CMP 


R1.R2 


BEQ 


240$ 


INC 


FATFLG 


ERRHRD 


ERRNO,T30BOT,EXPREC 



240$ 



CKLOOP 



{LOOP IF SELECTED 



C$ERHRD 
234 
T30B0T 
EXPREC 

C4CLP1 



177777 
036444* 



036444' 
034374' 



330$ 



TST 


CR3)* 


MOV 


CR3>,R1 


CMP 


Rl, 0177777 


BEQ 


330$ 


MOV 


T30FCN.R1 


CLC 




ROL 


Rl 


MOV 


R1.T30FCN 


JMP 


182$ 


CKLOOP 





104403 

023727 002214' 000017 

103402 

004737 C17074' 



ENDSU6 



CMP 
BLO 
JSR 



999$ 



FATFLG. 015. 
999 > 
PC.CKDROP 



{POINT TO NEXT POSITION 

{GET NEXT COMMAND ETC. 

{END OF TABLE MARKER 

{BR. IF AT END OF TABLE 

{GET NUMBER OF SKIPS 

{CLEAR THE CARRY BIT 

{PUSH OVER ONE POSITION 

j PUT BACK IN COUNTER 

{JUMP TO MORE COMMANDS TO DO 

{LOOP IF SELECTED 

TRAP 

l<<<<<<<<<<< END SUBTEST >>>>> 

L10045: 

TRAP 
ilS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
jTRY TO DROP THE UNIT 



C$CLP1 
>>>>>> 

c$Esue 



TEST 2, SUBTEST 3 



VERIFIES ThXT A SKIP TAPF MARKS REVERSE COMMAND 
{ISSUED WHILE THE TAPE IS POSITIONED AT BOT CAUSES 



N 



o 



TEST 1 - HARDWARE TEST 1-8 
TEST 2: SKIP TAPE MARKS 



1469 

1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 



TEST MACRO M1113 Ol-FEB-84 18:55 



SEQ 117 



{FUNCTION REJECT TERMINATION, WITH THE NON-EXECUTABLE 
FUNCTION (NEF) ERROR BIT SET. 



14 78 
14 79 
1480 
1481 
1482 
1483 
1484 
1485 



1486 
1487 
1488 
1492 
1493 



1494 
1495 
1496 
1497 

1498 
1499 
1500 
1501 
150d 
1503 
1504 
:.505 
1506 
1510 
1511 



1512 



035156 
035156 
035156 
035160 
035164 
035170 
035174 
035200 
035206 
035212 
035214 
035214 
0352^0 
035222 
035226 
035230 
035234 
035236 
035242 
035244 
C '5250 
035252 
035256 
035260 
035260 
035262 
035264 
035266 
035270 
035270 
035276 



BGNSUB 



035302 
035306 
035310 
035314 
035316 
035316 
035320 
035322 
035324 
035326 
035326 



104402 

004737 041042' 

005037 036444 

004737 041134' 

004737 041176' 

012737 176750 

004737 015664 
103426 



036446' 



10$: 



012727 000250 

000000 

013727 002116' 

000000 

005367 177772 

001375 

00536? 177756 

001367 

005337 0rS446' 

001356 

005237 002214' 

OlOOOl 

104455 
000353 
003642 1 
011724' 

013737 002174' 036300' 
012704 036260' 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC.T30RT2 


JSR 


PC.T30RT3 


MOV 


O65000. , T30DLY 


JSR 


PC.SOFINIT 


BCS 


201 


DELAY 


250 



DEC 


T30DLY 


BNE 


iO$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



MOV UNITN.T30DSU 

MOV 4T30PACKET.R4 



j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T2.3: 

TRAP C$BSUB 

j SET COMMANO PACKET 
j CLEAR FILE COUNTER 
{SET UP OTHER COMMANO PACKET 
j SET UP OTHER COMMANO PACKET 
;SET UP DELAY COUNTER 
}D0 INITIALIZE ON CONTROLLER 
iBR IF INIT WAS OK 
; DELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 
j BUMP COUNTER 
{BR, IF MORE COUNTING TO DO 

ERROR COUNT 
j CONTENT d OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 235 

.WORD SFIERR 

.WORD SFIMSG 

{SET UP UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESs 



$250 (PC)* 



LJDLY.CPO* 



-6(PC) 

. -4 

-22CPC) 

,-20 



; **+************** ************** ************************** 

J ISSUE WRITE CHARACTERISTICS COMMAND 

s 

{A***.*********-******************** *^ A*.******************,* 



004737 C10552 4 

103407 

005237 002214' 

010001 

104456 
000354 
005046' 
011724' 

104406 



235 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 

ERRHRD ERKNO.WRTMSG, SFIMSG 



CKLOOP 



; ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 
{ERROR COUNT 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 



CiERhRD 

236 
UUTMSG 

SFIMSG 

CiCLPi 



BIO 



TEST V - 


HARDWARE TEST 


1^8 TEST 


TEST 2j 


SKIP TAPE MARKS 


1513 








1514 








1515 








1516 








1517 








1518 








1519 








1520 


035330 


004 737 


010704' 


1521 


035334 


103411 




1522 


035336 


010004 




1523 


035340 


016501 


000002 


1524 


035344 


005237 


002214' 


1528 


035350 








0?5350 


104456 






035352 


000355 






035354 


040030' 






035356 


011736' 




1529 


035360 








035360 


104406 




1530 








1531 








1532 








1533 








1534 








1535 








1536 








1537 


035362 


013701 


036310' 


1538 


035366 


010102 




1539 


035370 


052702 


000002 


1540 


035374 


020102 




1541 


035376 


001406 




1542 


035400 


005237 


002214' 


1546 


035404 








035404 


104456 






035406 


000356 






035410 


037631' 






035412 


015364' 




1547 


035414 








035414 


104406 




1548 
1549 
1550 


035416 


012737 


000001 








1551 








1552 








1553 








1554 








1555 








1556 


035421 


012737 


141410 


1557 


035432 


012704 


036410' 


1558 


035436 


010465 


000000 


1559 


035442 


0O4737 


016140* 


1560 


035446 


016501 


000002 


1561 


035452 


012702 


100206 


1562 


035456 


020102 




1563 


035460 


001406 




1564 


035462 


005237 


002214' 


1568 


055466 







MACRO M1113 01-FEB-84 18 j 55 



SEQ 118 



j ISSUE A REWIND TO TAPE DRIVE ANO WAIT FOR SSR TO SET 

I 

I CALL TAPc REWINO COMMAND 
I BR, IF NO PROdLEM 
iGET PACKET ADDRESS 
(GET STATUS REGISTER 
, ERROR COUNT 
iREUiNO NCT ACCEPTED 



JSR 


PC, REWINO 


BCS 


301 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



30*5 



ERRHRD ERRNO. T30RWN,PKTSSR 



CKLOOP 



lLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHT) 
237 

T30RWN 
PKTSSR 

CICLPl 



036412' 



jGET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

I 

,+**« + ************•*«********* + «**♦ + ♦ + **♦** + <>**«*«*«***««« 

iPICK \*> XSTO 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP • SEC'D 

jBR, IF EQUAL (OK) 

i ERROR COUNT 
I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 
I SET Of TM TO SKIP 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


#eiu,R2 


CMP 


RJ.R2 


BEQ 


401 


INC 


FATFLG 



ERRMRD ERRNO » T3080T ,EXPREC 



40*1 



CKLOOP 
MOV 



•1.T30WQ 



ClcRHRD 

23a 

T30B0T 
EXPREC 

CtCLPl 



SKIP TAPE MARK REVERSE , ACK ,CVC - 1 COMMANO 



036410' 



MOV 


0141410, T30PK3 


MOV 


♦T30PKS.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),H1 


MOV 


♦SSR!SC!BIT1!BIT2,R2 


CMP 


R1.R2 


BEQ 


701 


INC 


FATFLG 


ERRHRO 


ERRNO I T30IBT,PKT5SR 



ISKIP TAPE MARK REVERSE .ACK ,CVC • 1 CMO 

l SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMANO 

lUAIT FOR r ,SR TO SET 

iGET TSSR CONSENTS 

iSET UP EXPECTED 

i ARE THEY EQUAL 

|BR, IF OK 

I ERROR COUNT 
jTSSR INCORRECT AFTER WRITE DATA 



CIO 



m i a,- ^m^w- 8 test 


055466 


104456 




035470 


000357 




035472 


036621' 




035474 


011736' 




1569 0354 76 






035476 


104406 




1570 






1571 






1572 






1573 






1574 






1575 






1576 






1577 035500 


013701 


036310' 


1578 035501 


010102 




1579 035506 


0!>2702 


002000 


1560 035512 


020102 




1581 035514 


001406 




1582 03S516 


005237 


002214' 


1586 035522 






035522 


104456 




035524 


000360 




035526 


040366' 




035530 


015364- 




1587 035532 






035532 


104406 




1588 035534 






035554 






035534 


104403 




1589 035536 


023727 


002214' 


.1590 035544 


103402 




1591 035546 


004737 


017074* 


1592 035552 






1593 






1594 






1595 






1596 






1597 






1598 






1599 






1600 






1601 






1602 






1603 






1604 






1605 






1606 






1607 






1608 






1609 






1610 035)52 






035552 






035552 


1C4402 




1611 035554 


004737 


041042' 


1612 035560 


005037 


036444' 


1613 035 r >64 


004 737 


041134' 


16X4 035570 


004737 


04U76 1 



MACRO M1113 Oi-FEB-84 18j55 



000017 



701 j 



CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



SEQ 119 



OERHRD 
239 
T30IBT 
PKTSSR 

CICLP1 



I************* ******************************************** 

( GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

J 

I** ************************* ** ****** ********************** 



MOV 


T308FR*6,R1 


MOV 


R1.R2 


BIS 


06IT10»R2 


CMP 


R1.R2 


REQ 


1801 


INC 


FATFLG 



1801 i 



999 1 j 



i ♦ 



ERRHRD ERRNO ♦ T30NEF , EXPREC 

CKLOOP 
ENOSUB 



CMP FATFLG, #15. 

BLO 9991 

JSR PC.CKDROP 



iPICK UP XSTO 




iSET UP EXPECTED 




iSET NEF BIT IN EXPECTED 




jDOES EXP - REC'D 




»BR. ir EQUAL (OK) 




i ERROR COUNT 




j TAPE NOT AT NEF 




TRAP 


CtERHRD 


.WORD 


240 


.WORD 


T30NEF 


.WORD 


EXPREC 



lLOOP IF SELECTED 

TRAP CICLP1 
l<<<<<<<<<<< end SUBTEST >>>>>>>>>>> 

L10046: 

TRAP ClbSUB 
iIS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



iTEST 2, SUBTEST 4 

i 

VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMANO 

I ISSUED WHILE THE TAPE IS POSITIONED JUST BEFOflfc THE 

iFIRST RECORD ON ON TAPE (BUT NOT AT BOT) CAUSES TAPE 

;STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 

iCRIB) STATUS BIT SET. 

\ 

i 

I 

I 

I 

I - 



BGNSUB 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC.Y30RT2 


JSR 


PC.T30RT3 



I >>>>> *>>>>>> BEGIN SUBTEST >>>>■» "»>«.-»>> >> 

T2.4? 

TRAP C*BSUB 

I SET COMMANO PACKET 
iCLEAR FILE COUNTER 
I SET UP OTHER COMMANO PACKET 
j SET UP OTHER COMMAND PACKET 



D10 



TEST I 


HARDWARE TEST 


1-8 TEST 


TEST 2: 


SKIP TAPE MARKS 


1615 


035574 


012737 


176750 


1616 


035602 


0O4737 


015664' 


1617 


035606 


103426 




1618 


035610 








035610 


012727 


000250 




035614 


000000 






035616 


013727 


002116' 




035622 


000000 






035624 


005367 


177772 




035630 


001375 






035632 


005367 


177756 




035636 


001367 




1619 


035640 


005337 


036446' 


1620 


035644 


001356 




1621 


035646 


005*37 


002214* 


1625 


035652 


010001 




1626 


035654 








035654 


104455 






035656 


0O0361 






035660 


003642' 






035662 


011724' 




1627 


035664 






1628 


035664 


013737 


002174' 


1629 


035672 


012704 


036260' 


1630 








1631 








1632 








1633 








1634 








1635 








1636 








1637 


035676 


004737 


010552* 


1638 


035702 


103407 




1639 


035704 


005237 


002214' 


1643 


035710 


010001 




1644 


035712 








035712 


104456 






035714 


000362 






035716 


005046* 






035720 


011724' 




1645 


035722 








035722 


104406 




1646 








1647 








1648 








1649 








1650 








1651 








1652 








1653 


035724 


004737 


010704' 


1654 


035730 


1034U 




1655 


035732 


010004 




1656 


035734 


016501 


000002 


1657 


035740 


005237 


002214' 


1661 


035744 








035744 


104456 






035746 


000363 





036446 



036300 



10$ 



FED -84 


18 {55 






SEQ 120 


MOV 


065000 


.T30DLY 


iSET UP DELAY COUNTER 




JSF. 


PC.SOFINIT 


»D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 




I BR IF INIT WAS OK 




DELAY 


250 




iDELAY ROUTINE CALL 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


#250, (PC). 



L$DLY,CPCV 



-6CPC) 

.-4 

-22CPC) 

.-20 


DEC 


T30DLY 




iBUMP COUNTER 




BNE 


10$ 




;BR> IF MORE COUNTING TO DO 




INC 


FATFLG 




i ERROR COUNT 




MOV 


R0.R1 




I CONTENTS OF TSSR REGISTER 




LRRDF 


ERRNO,! 


5FIERR, SFIMSG 


t FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
241 

SFIERR 
SFIMSG 


MOV 


UNITN. 


T30DSW 


iSET UP UNIT NUMBER 




MOV 


0T30PACKET.R4 


i SUBROUTINE NEEDS PACKET ADDRESS 



20* 



;************************************************ + ****.**** 

; ISSUE WRITE CHARACTERISTICS COMMAND 

i 

j********************************************************* 



23$ • 



JSR PC.WRTCHR 

BCS 23$ 

INC FATFLG 

MOV R0.R1 

ERRHRD ERRNO. WRTMSG , SFIMSG 



CKLOOP 



tISSUE WRITE CHARACTERISTICS 
I BR. IF COHMANO ISSUED OK 

i ERROR COUNT 
(SAVE CONTENTS OF TSSR 
iWRlTE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



I LOOP IF SELECTED 



TRAP 



C$ERHRD 
242 

WRTMSG 
SFIMSG 

C$CLP1 



I********************************************************* 

I ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

I 

;************************************<.****»***+*********** 



JSR 


PC. REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


INC 


FATFLG 



ERRHRD ERRNO , T30RWN , PK TSSR 



j CALL TAPE REWINO COMMAND 
I BR. IF NO PROBLEM 
»GET PACKET ADDRESS 
jGET STATUS REGISTER 
i ERROR COUNT 
iREWIND NOT ACCEPTED 

TRAP 
.WORD 



C$ERHRD 
243 



E10 



TEST L - HARDWARE TEST 1-8 TEST 
TEST 2 \ SKIP TAPE MARKS 



MACRO M1113 01-FEB-84 18:55 



SEQ 121 



1662 

1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1679 



1680 

1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1702 



1703 

1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 



035750 
035752 
035754 
035754 



040030 
011736 

104406 



035756 
035762 
035764 
035770 
035772 
035774 
036000 
036000 
036002 
036004 
036006 
036010 
036010 
036012 
036020 



013701 036310* 

01010? 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000364 
037631' 
015364' 

104406 

013737 007116' 

012737 000400 



036026 
036034 
036040 
036044 
036050 
036054 
036060 
036002 
036064 
036070 
036070 
036072 
036074 
036076 
036100 
036100 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000365 
036760 
011736 

104406 



140005 

036410' 

000000 

016140' 

000002 

000200 



002214' 



036412' 
036416' 



036410' 



30$} 



CKLOOP 



l LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



; ******************** ************************************* 

iGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 
I*** a******* **************** ****************************** 

I PICK UP XSTO 

{SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

l DOES EXP - REC'D 

i BR, IF EQUAL COK) 

j ERROR COUNT 
I TAPE NOT AT BOT AFTER REWINO 

TRAP 
.WORD 
.WORD 
.WORD 
40$: CKLOOP {LOOP IF SELECTED 

TRAP 
;SET LP GOOD WRITE BUFFER 
j SET UP SIZE 



MOV 


T30BFRf6,Rl 


MOV 


R1,R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


3EQ 


401 


INC 


FATFLG 



ERRHRD ERRNO , T30B0T , EXPREC 



CKLOOP 

MOV 
MOV 



FREE.T30WB 
*256. .T30SZ 



I ********************************************************* 

{WRITE DATA,ACK,CVC-1 COMMAND 

J 

j ********************************* ************ ************ 



T30RWN 
PKT5SR 

C$CLP1 



C$ERHRD 
244 

T30B0T 
EXPREC 

C$CLP1 



MOV 


0140005, T30PK3 


MOV 


♦T30PK3.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5) t Rl 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


70$ 


INC 


FATFLG 



70$ 



ERRHRD ERRNO , T30WDD , PKTSSR 



CKLOOP 



{WRITE DATA.ACK.CVC"! COMMAND 
tSET UP R4 WITH PACKET ADDRESS 
{ISSUE COMMAND 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
{SET UP EXPFCTED 
{ARE THEY £QUAL 
{BR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 

TRAP C$ERHRD 



{LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



245 

T30WDD 

PKTSSR 

CSCLP1 



036102 012737 000001 036412 



I ********* ************************* ****** ***************** 

i 

{SKIP TAPE MARK REVERSE ,ACK .CVC-1 COMMAND 

I ******************************** ************ ******** ****** 
MOV #i.T30WB tO OF TM TO SKIP 



F10 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 2 : SKIP TAPE MARKS 



Ol-FEB-84 18:55 



SEQ 122 



1712 
1713 

1714 
1715 
1716 
1717 
1718 
1719 
1720 
1724 



1725 

1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1742 



1743 
1744 



1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 



1757 
1758 
1759 
1760 



036110 
036116 
036122 
036126 
036132 
036136 
036142 
036144 
036146 
036152 
036152 
036154 
036156 
036160 
036162 
036162 



036164 
036170 
036172 
036176 
036200 
036202 
036206 
036206 
036210 
036212 
036214 
036216 
036216 
036220 
036220 
036220 
036222 
036230 
036232 
036236 



036236 
036242 
036244 
036250 
036250 
036252 



012737 141410 036410' 

012704 036410' 

010465 000000 

004737 016140' 

016501 000002 

012702 100204 

020102 

001406 

005237 002214' 

104456 
000366 
036450' 
011736' 

104406 



MOV 


0141410, T30PK3 


MOV 


0T30PK3.R4 


MOV 


R4,TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


4SSP!BIT2!SC,R2 


CMP 


R1.R2 


BEG 


160$ 


INC 


FATFLG 


ERRHRO 


ERRN0,T30IBU,PKTSSR 



160$: CKLOOP 



;SKIP TAPE MARK REVERSE, ACK,CVC»1 CMD 

{SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

i WAIT FOR SSR TO SET 

(PICK UP TSSR 

l SET UP EXPECTED CSSR AND SC ONLY) 

j WAS STATUS GOOD 

j BR, IF TERMINATION WAS GOOD 

i ERROR COUNT 
j TSSR NOT CORRECT AFTER WRT TAPE M. 



{LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


246 


.WORO 


T30IBU 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



I ***********************************>************ + **..****.** 

{GET EXTENDED STATUS REGISTER ZERO CXST3) FROM MESSAGE BUFFER 

; 

I ******************** **** ** ** ************ + * ** ************* 



013701 036316' 

010102 

052702 000001 

020102 

001406 

005237 002214' 

104456 
000367 
036535' 
015364' 

104406 



104403 

023727 002214' 000017 

103402 

004737 017074' 



170$ 



004737 016350' 

103002 

000137 032140 1 

104432 
002746 



999$: 

{SUBTEST END 

i 

I 

JSR 
BCC 
JMP 

400$: EXIT 



MOV 


T30BFR»14 # R1 


{PICK UP XST3 








MOV 


R1.R2 


{SET UP EXPECTED 








BIS 


*8IT0,R2 


iSET RIB BIT IN EXPECTED 






CMP 


R1.R2 


{DOES EXP ■ REC'D 








BEQ 


170$ 


iBR, IF EQUAL (OK) 








INC 


FATFLG 


; ERROR COUNT 








ERRHRD 


EP.RN0,T30RI6 V EXPREC 


j TAPE NOT AT RIB 




TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 

247 

T30RIB 

EXPREC 


CKLOOP 




;LOOP IF SELECTED 




TRAP 


C$CLP1 


ENDSU8 




;<<<<<<<<<<< END SUBTEST 


>>■>>>>>>>*> 






L10O47: 














TRAP 


C$ESUB 


CMP 


FATFLG, 015, 


j IS ERROR COUNT 


AT 25 




BLO 


99*? > 


jBR, IK LESS 


THAN 25 




JSR 


PC.CKDROP 


{TRY TO DROP 


THE 


UNIT 





PC.TSTLOOP 
400$ 
T3CL00P 
TST 



i DO WE NEED TO ITERATE TEST 

j BR. IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

{ALL DONE THIS TEST 

TRAP 
.WORD 



C$EXIT 
L10043 



{LOCAL STORAGE FOR THIS TEST 



G10 



TEST 1 - 


HARDWA 


RE TEST 


TEST 2; 


SKT; 3 ~ 


APE MARK 


1762 


036254 




1764 


036260 




1765 


036260 


100004 


1766 


036262 


036270' 


1767 


036264 


000000 


1768 


036266 


000012 


1769 


036270 




1770 


036270 


036302' 


1771 


036272 


000000 


1772 


036274 


000024 


1773 


036276 


000000 


1774 


036300 


000000 


1775 


036302 




1776 






1777 






1778 






1780 


036364 




1782 


036370 




1783 


036370 


100006 


1784 


036372 


036420' 


1785 


036374 


000000 


1786 


036376 


000006 


1787 






1789 


036400 




1791 


036410 




1792 


036410 


100205 


1793 


036412 




1794 


036412 


003116' 


1795 


036414 


OOOOOO 


1796 


036416 


000000 


1797 






1798 






1799 






1800 






1801 


036420 




1802 


036420 


010 


1803 


036421 


200 


1804 


036422 


OOOOOO 


1805 


036424 


OOOOOO 


1806 






1807 






1808 






1809 






1810 






1611 


036426 




1812 


036426 




1813 


036426 


OOOOOO 


1814 


036430 


000100 


1815 


036432 


000200 


1816 


036434 


C00300 


1817 


036436 


1/7777 


1818 






1819 






1820 


036440 


OOOOOO 


1821 


036442 


OOOOOO 


1822 


036444 


OOOOOO 


1823 


036446 


OOOOOO 



01 -FEB -84 18; 55 



SEQ 123 





.BLKB 


10-<. •TSV267> 


T30PACKET: 






.WORD 


100004 




.WORD 


T30DATA 




.WORD 







.WORD 


10. 


T30DATA? 






.WORD 


T30BFR 




.WORD 







.WORD 


20, 


T30ETM; 


.WORD 





T30DSWj 


.WORD 





T30BFR' 


.BLKW 


25. 


jWRITE 


SUBSYSTEM MEMORY COMMANO PACKET 


s 


.BLKB 


10-<.-TSV2£7> 


T30PK2 








,WO«D 


100006 




.WORD 


T30BF2 




.WORD 







. UORD 


6. 




.BLKB 


10-<.-TSV267> 


T30PK3 


► 






.WORD 


100205 


T30RB: 






T30WB: 


.WORO 


FREE 




.WORD 





T3CSZ: 


.WORD 





J 


.EVEN 




i 
T3C3F2 






T3OBS0 


! .BYTE 


10 


T30BSI 


: .BYTE 


200 


T3JS2; 


.WORD 





TiOS3t 


.WORD 






.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



T30IMV. 






T30RN.* 








.WORD 


OOOOOO 




.WORD 


000100 




.WORD 


000200 




.WORD 


000300 




.WORD 


177777 


T30CNT; 


.WORD 





T30CNU: 


.WORD 





T30FCN: 


.WORD 





T30DLY: 


.WORD 






I COMMAND PACKET FOR TEST 

I WRITE CHARACTERISTICS COMMANO, WITH 

j ADDRESS OF CHARACTERISTICS BLOCK 

l STARTING VALUE OF BLOCK SIZE 
I CHARACTERISTICS DATA BLOCK 
l ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 
j SKIP TAPE MARK CONTROL 
I SELECT DRIVE 
l MESSAGE BUFFER 



ACK 



I WRITE SUB SYS MEM COMMANO, AND ACK 
j ADDRESS OF SELECT BLOCK DATA 

j SIZE OF DATA PACKET 



j REREAD COMMAND. IE ANO ACK 
t ADDRESS OF WRITE BUFFER 
j SIZE OF BUFFER (EXTENT) 



jBSELO AREA 
;BSEL1 AREA 
jSEL 2 AREA 
j DATA AREA 



jNEITHER EWB NOR ESS 

;EW8 SET 

lESS SET 

iBOTH EWB ANO ESS SET 

j END OF DATA 



jTAPE TIMER COUNTER STORAGE 
tTAPE TIMER COUNTER STORAGE 
jFTLE NUMBER COUNTER 
j DELAY COUNTER STORAGE 



AREA 
AREA 



•no 



TEST 1 - HARDWARE TEST 1-6 TEST MACRO M1113 
TEST 2 j SKIP TAPE MARKS 



01-FEB-84 18:55 



SEQ 124 



1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1347 

1348 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

186* 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

i860 



{LOCAL TEXT MESSAGES FOR TEST 



036450 
036535 
036621 
036704 
036760 
037032 
037123 
037203 
037261 
057343 
037A20 
037501 
037552 
03 7631 
037676 
037753 
040030 
040077 
040152 
040231 
040304 
040366 
040445 
040523 
04060k 
040660 
040724 
041021 



041042 
041042 
041046 
041052 
041056 
041062 
041064 
041070 
041074 
041076 
041102 
041104 
041110 
041114 



124 
122 
124 
124 
124 
124 
124 
124 
124 
124 
111 
127 
124 
124 
124 
124 
122 
104 
124 
103 
124 
123 
124 
124 
124 
116 
104 
123 



123 
111 
123 
123 
123 
141 
141 
123 
123 
123 
154 
122 
123 
141 
123 
123 
145 
162 
123 
126 
115 
113 
115 
115 
115 
117 
141 
153 



01?701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
01*>702 
012762 



123 
102 
123 
123 
123 
160 
160 
123 
123 
123 
154 
111 
123 
160 
123 
123 
167 
151 
123 
103 
113 
111 
113 
113 
113 
040 
164 
151 



T30IBU 
T3CRIB 
T30IBT 
T30SKM 
T30W00 
T30PTB 
T30TPB 
T30RDF 
T30RDG 
730WOF 
T30L0Q 
T30SSR 
T30W0E 
T30B0T 
T30TM: 
T30TM2 
T30RWN 
T300FL 
T30W0C 
T30VCK 
T30TMK 
T30NEF 
T30RRM 
T30RRN 
T30RRP 
T300TR 
T300TA 
TST30ID: 

t * 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI7 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCII 

.EVEN 



TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT' 
RIB Bit (XST3) Failed To Set After Reverse Into BOT' 
TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT' 
TSSR Incorrect After SKIP TAPE MARK Command* 
TSSR Not Correct After WRITE DATA Command* 
Tape Not Positioned On Correct Record After READ REVERSE' 
Tape Not Positioned On Second File First Record' 
TSSR Incorrect After READ FORWARD Into "File"' 
TSSR Incorrect After SPACE Command Into TAPE MARK' 
TSSR Not Correct After Illegal Mode Bits Set' 
Illegal Mode Bite. Failed To Set ILC Bit In XSTO' 
WRITE MISCELLANEOUS Command Not Accepted' 
TSSR Not Correct After SKIP TAPE MARKS. At BOT' 
Tape Not At BOT After REWINO Command' 
TSSR Not Correct After SPACE FORWARD Command' 
TSSR Not Correct After SPACE REVERSE Command- 
Rewind (POSITION) Command Not Accepted' 
Drive 7 Select Failed To Set "OFL" In TSSR' 
TSSR Not Correct After WRITE TAPE MARK Command' 
CVC Set, Didn"t Reset VCK In Message Buffer' 
TMK Not S*t After WRITE TAPE MARK (RETRY) Command 
SKIP TAPE MARKS. At BOT, Failed To Set NEF Bit' 
TMK Not Set After READ REVERSE Into TAPE MARK- 
TMK Not Set After SPACE REVERSE Into TAPE MARK' 
TMK Not Set After READ FORWARD Into TAPE MARK' 
NO Data Transferred On READ FORWARD' 

Data Compare Error, Data Read From Tape Not Equal To Written' 
ASCIZ 'Skip Tope Marks' 



jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
j WRITE SUBSYSTEM MEMORY COMMAND 



036260' 

100004 

036270' 

000012 
036302' 

000024 

000000 
000030 
177777 036302' 64 $ j 



i 
i - 






T30REST 


*SAVREG 






MOV 


0T3OPACKET.R1 




MOV 


O100OO4,(RD* 




MOV 


*T30DATA,(Rl)f 




CLR 


(Rl)f 




MOV 


*10.,(R1)* 




MOV 


*T30BFR.(R1)* 




CLR 


CRD* 




MOV 


#20. .CRD* 




CLR 


(Rl)» 




MOV 


#0,(R1) 




MOV 


024. ,R2 



MOV 



0177777, T30BFR(R2) 



I SAVE THE REGISTERS 

I START OK THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK . 

i ADDRESS OF CHARAISTICS DATA BLOCK 

i EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

» ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

j SELECT DRIVE ZERO 

{NUMBER OF LOCATIONS TO BE CLEARED 

{ALL ONES TO MESSAGE BUFFER 



110 



TEST 
TEST 



1 - HARDWARE TEST 1-8 TEST MACRO M1113 
2; 



SKIP TAPE MARKS 



Ol-FEB-84 18:55 



SEQ 125 



1881 
1882 
1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 



1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 

1922 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 



041122 
041124 
041130 
041132 



041134 
041134 
041140 
041144 
041150 
041154 
041156 
041162 
041164 
041170 
041172 
041174 
041176 
041176 
041202 
041206 
041210 
041212 
041214 
041216 
041220 
041220 
041220 



041222 
041222 
041222 
041230 
041234 
041240 
041246 



041252 



005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



012737 
012700 
004 737 
012737 
005037 



000000 



036370' 

100006 

036420' 

000006 

036420' 



036410' 



TST 


-CR2) 


CMP 


00., R2 


BNE 


64$ 


RTS 


PC 


T30RT2s 




SAVREG 




MOV 


OT30PK2.R1 


MOV 


*100006,(Rl)f 


MOV 


OT30BF2.CR1)* 


CLR 


CRl)f 


MOV 


#6., CRD* 


CLR 


CRD* 


MOV 


OT30BF2.R1 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


T30RT3J 




SAVREG 




MOV 


OT30PK3.R1 


CLR 


CRD* 


CLR 


CRD* 


CLR 


(Rl)f 


CLR 


CRD 


RTS 


PC 


ENOTST 





j NEXT LOCATION 

j CHECK R2 FOR DONE 
{KEEP GOING UNTIL DONE 
{RETURN 



REGISTERS 
THE PACKET 



j SAVE THE 

j START OF int KKWti 

{WRITE SUBSYSTEM MEM. WITH ACK t 

j ADDRESS OF DATA BLOCK 

j EXTENDED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



{RETURN 

j SAVE REGISTERS 

;SET UP POINTER ADDRESS 

jCOMMANO SPACE 

j ADDRESS OF DATA BLOCK 

INTENDED ADDRESS 

{SIZE Of DATA TRANSFER BLOCK 

j RETURN 



L10043; 



TRAP CJETST 



.SBTTL TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND INITIALIZE 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 

THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



006166' 002172 

046353' 

016402' 

000005 002210 

043146' 



OGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



♦EPRT1.EPRTSW 

0TST31I0.R0 

PC.TSTSETUP 

O5.L00PCNT 

T31CNT 



T3:; 
{PRIMARY ERROR MESSAGE 
{ASCII MESSAGE TO IDENTIFY TEST 
{DO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
{CLEAR TAPE RECORD COUNTER 



{ - 



T31L00P: 



J ♦ 



{TEST 3, SUBTEST 1 



J10 



TEST I - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 126 



1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
194 7 
1948 
1949 
1950 
1951 
1952 
195.3 
1954 
1955 
1956 
1957 



1958 
1959 
1960 
1961 
1962 
1963 
1964 



1965 
1966 

1967 
1971 
1972 



1973 
1974 
1975 
1976 
1977 
1981 
1982 



1983 



041252 
041252 
041252 
041254 
041260 
041264 
041270 
041276 
041302 
041304 
041304 
041310 
041312 
041316 
041320 
041324 
041326 
041332 
041334 
041340 
041342 
041346 
041350 
041350 
041352 
041354 
041356 
041360 
041366 
041372 
0413/6 
041400 
041404 
041406 
041406 
041410 
041412 
041414 
041416 



104402 
004737 
C04737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
O1OO01 

104455 

000455 

003642 ' 

011724 

013737 

012 704 

004737 

103407 

005237 

010001 

104456 
000456 
005046 
011724 



VERIFIES THAT THE NO-OP COMMAND (CORRESPONDS TO THE CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND 
INDEED DOES NOT MOVE TAPE. THE TAPE IS FIRST REWOUNO AND 
WRITTEN WITH SEQUENCED TEST RECORDS. IT IS THEN REWOUND AGAIN 
AND THE NO-OP COMMAND IS ISSUED. IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION AND 
VERIFY THAT DATA WAS NOT CHANGED), THEN T!iE NO-OP COMMAND IS 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED. 



BG^SUB 



046420 1 

046512' 

046554 

176750 

015664 



000250 

002116' 

177772 

177756 

043152' 

002214* 



043152 



10$: 



JSR 


PC.T31REST 


JSR 


PCT31RT2 


JSR 


PCT31RT3 


MOV 


#65000., T31DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T31DLY 


BNE 


lOi 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



002174' 
042770' 
010552' 

002214' 



043010' 20$ 



MOV 


UNITN,T31DSW 


MOV 


4T31PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


231 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.URTMSG, SFIMSG 



}>>>>>>>>>>>> 



>>>>>>>>>>>> 



#250, (PC)* 



L$DLY.(PC)* 



-6CPC) 

.-4 

-22(PC) 

.-20 



23$ j 



CKLOOP 



BEGIN SUBTEST 
T3.1: 

TRAP C$BSUB 
l SET COMMAND PACKET 
iSET UP OTHER COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
j SET UP DELAY COUNTER 
I DO INITIALIZE ON CONTROLLER 
{ BR IF INIT WAS OK 
{DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

{BUMP COUNTER 
{BR, IF COUNTER NOT OONE 

{ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
{FATAL ER^OR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 301 

.WORD SFIERR 

.WORD SFIMSG 
I SET UP UNIT NUMBER IN PACKET 
{SUBROUTINE NEEDS PACKET ADDRESS 
{ISSUE WRITE CHARACTERISTICS 
{BR, IF COMMAND ISSUED OK 

i ERROR COUNT 
{SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 

.WORD 30? 

.WORD WRTMSG 

.WORD SFIMSG 
{LOOP IF SELECTED 



K10 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 127 



1984 
1985 
1986 
1987 
1991 



1992 

1993 
1994 
1995 
1996 
1997 
1998 
2002 



2003 

2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
205.6 
2020 



2021 

2022 
2023 
2024 
2025 
2029 



2030 
2031 



041416 

041420 

041424 

041426 

041430 

041434 

041434 

041436 

041440 

041442 

041444 

041444 

041446 

041452 

041454 

041460 

041462 

041464 

041470 

041470 

041472 

041474 

041476 

041500 

041500 

041502 

041510 

041516 

041522 

041526 

041532 

041540 

041544 

041550 

041554 

041560 

041562 

041564 

041570 

041570 

041572 

041574 

041576 

041600 

041600 

041602 

041606 

041610 

041612 

041616 

041616 

04x620 

041622 

041624 

041626 

041626 

041630 



104406 

004737 010704 1 

103407 

010004 

005237 002214 ' 

104456 
000457 
044504' 
011736' 

104406 

013701 043020 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000460 
044155' 
015364' 



104406 
013737 
012737 
012704 
012700 
004737 
012 7 37 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000461 

04^040' 
011736' 

104406 
004737 

103407 
010001 
005237 

104456 
000462 
044504' 
015364' 



104406 

013701 043020 



30$; 







TRAP 


C$CLP1 


JSR 


PC, REWIND 


j CALL TAPE REWIND COMMAND 




BCS 


30$ 


» BR, IF NO PROBLEM 




MOV 


R0,R4 


{SET UP REWIND PACKET ADDRESS 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0.T31RWN, PKTSSR 


l REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


303 






.WCRD 


T31RWN 




* 


.WORD 


PKTSSR 



CKLOOP 



hO$ 



003116' 043122' 

140005 043120' 65$ 

043120' 

000144 

017314' 

000144 043126' 

000000 

016140' 

000002 

000200 



002214 



80$: 



010704 



002214 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



j LOOP IF SELECTED 



MOV 


T31BFR*6,R1 


MOV 


R1,R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T31B0T, EXPREC 



FREE.T31WB 

0140005, T31PK3 

0T31PK3,R4 

0100.. no 

PC.FILLMEM 

0100. ,T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1.R2 

80$ 

FATFLG 

ERRN0.T31WUC, PKTSSR 



PC, REWIND 

230$ 

R0,R1 

FATFLG 

ERRNO, T31RWN, EXPREC 



TRAP 



CSCLP1 



I PICK UP XSTO 

{SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

{ERROR COUNT 

{TAPE NOT AT BOT AFTER REWINO 

TRAP C$ERHRD 
.WORD 304 
.WORD T31B0T 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

{STARTING WRITE BUFFER ADDRESS 

i WRITE DATA, OVC- l.ACK COHMANO 

{SET UP R4 WITH PACKET ADDRESS 

{SET PATTERN IN CORRECT REGISTER 

{FILL MEMORY WITH RECORD SIZE 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

j BR, IF OK 

{ERROR COUNT 

{TSSR INCORRECT AFTER WRITE DATA 



230*: 



CKLOOP 

MOV T31BFR*6.R1 



TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{CALL TAPE REWIND COMMAND 

j BR, IF NO PROBLEM 

{SAVE TSSR 

{ERROR COINT 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
305 

T31U0C 
PKTSSR 

C$CLP1 



:L00P IF SELECTED 
{PICK UP XSTO 



TRAP 



C$ERHRD 
306 
T31RWN 
EXPREC 

C$CLP1 



L10 



TEST 1 - HARDWARE TEST 


1-8 TEST MACRO M 


TEST 3: NO-OP 


( "CLEAN 


TAPE") AND INITI 


2032 041634 


010102 




2033 041636 


052702 


000002 


2034 041642 


020102 




2035 041644 


001406 




2036 041646 


005237 


002214' 


2040 041652 






041652 


104456 




041654 


000463 




041656 


044155' 




041660 


015364' 




2041 041662 






041662 


104406 




2042 041664 


012737 


041012 043120' 


2043 041672 


012704 


043120' 


2044 041S76 


010337 


043126' 


2045 041702 


010465 


000000 


2046 041706 


004737 


016140' 


2047 041712 


016501 


000002 


2048 041716 


012702 


000200 


2049 041722 


020102 




2050 041724 


001406 




2051 041726 


005237 


002214' 


2055 041732 






041732 


104456 




041734 


000464 




041736 


043353' 




041740 


011736' 




2056 041742 






041742 


104406 




2057 041744 


013701 


043020' 


2056 041750 


010102 




2059 041752 


052702 


000002 


2060 041756 


020102 




2061 041^60 


001406 




2062 041762 


005237 


002214' 


2066 0417C6 






041766 


104456 




041770 


000465 




041772 


044155' 




041774 


015364' 




2067 041776 






041776 


104406 




2068 0V?OCO 


012737 


140001 043120' 


2069 042006 


012704 


043120' 


2070 042012 


012737 


000144 043126' 


2071 042020 


010465 


000000 


2072 042024 


004737 


016140' 


20/c 042030 


016501 


000002 


2074 042034 


C12702 


000200 


20 7 5 042040 


020102 




2076 042042 


001406 




2077 042044 


005237 


002214' 


2091 042050 






042050 


104456 




042052 


000466 




042054 


043154' 




042056 


011736' 





01-FEB- 


84 


18{55 


MOV 




R1.R2 


BIS 




0BIT1.R2 


CMP 




R1.R2 


BFQ 




240$ 


INC 




FATFLG 


ERRHRD 


ERRN0.T31B0T, EXPREC 



SEQ 128 



j SET Uf- EXPECTEO 

{SET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

j BR, IF EQUAL (OK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 



240$ 
265v 



280$ 



285$ 









TRAP 


C5ERHRD 








.WORD 


307 








.WORD 


T31B0T 








.WORD 


EXPREC 


CKLOOP 




j LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


#041012, T31PK3 


{NO-OP, CVC-1 COMMAND 






MOV 


#T31i J K3.R4 


{SET UP R4 WITH PACKET 


ADDRESS 




MOV 


R3.T31SZ 


{SET UP RECORD SIZE IN 


PACKET 




MOV 


R4.TSDBCR5) 


{ISSUE COMMAND 






JSR 


PC.WAITF 


{WAIT FOR SSR TO SET 






MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 






MOV 


0SSR.R2 


{SET UP EXPECTEO 






CMP 


R1.R2 


{ARE THEY EQUAL 






BEQ 


280$ 


j BR ; IF OK 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


F.RRN0.T31RDK, PKTSSR 


{TSSR INCORRECT AFTER READ DATA 










TRAP 


C$ERHRD 








.WORD 


308 








.WORD 


T31RDF 








.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 


TRAP 


C*CLP1 


MOV 


T31BFRf6,Rl 


{PICK UP XSTO 






MOV 


R1.R2 


{SET UP EXPECTED 






BIS 


0BIT1.R2 


tSET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - UEC'D 






BEQ 


285$ 


{BR, IF EQUAL (OK) 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


ERRNO , T31B0T , EXPREC 


{TAPE NOT AT BOT AFTER 


REWIND 
TRAP 
.WORD 
.WORD 
. WORD 


C$ERHRD 
309 
T31B0T 
EXPREC 


CKLOOP 




{LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


0140001, T31PK3 


;READ,ACK,CVC-l COMMAND 




MOV 


4T31PK3.R4 


{SET UP R4 WITH PACKET 


ADDRESS 




MOV 


0100..T31SZ 


{SET UP RECORD SIZE IN 


PACKET 




MOV 


R4, TSDBCR5) 


{ISSUE COMMAND 






JSR 


PCWAITF 


{WAIT FOR SSR TO SET 






MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 






MOV 


0SSR.R2 


{SET UP EXPECTED 






CMP 


R1.R2 


tARE THEY EQUAL 






BEQ 


290$ 


I BR. IF OK 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


ERRNO, T31RDE, PKTSSR 


iTSSR INCORRECT AFTER 1 


*EAD DATA 
TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
310 
T31RDE 
PKTSSR 



M10 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01-FEB-84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 129 



2082 

2083 
2084 
2085 
2086 
2087 
2091 



2092 
2093 



2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 



cllO 

2114 
2115 
2116 
2117 
2118 
2122 
i_123 



2124 
2125 
2126 
2127 
2128 
2132 
2133 



042060 
042060 
042062 
042066 
042072 
042074 
0«'.2076 
042102 
042102 
042104 
042106 
042110 
042112 
042112 
042112 
042112 
042114 
042122 
042124 
042130 



042130 
04213C 
042130 
042132 
042136 
042142 
042146 
04215? 
042154 
042160 
042162 
042162 
042164 
042166 
042170 
042172 
042200 
042204 
042210 
042212 
042216 
042220 
042220 



104406 
017701 
012702 
020102 
001406 
005237 

104456 
000467 
043301 
015364 



104403 
023727 
103402 
004 /37 



104402 
004737 
004737 
00473? 
004737 
103407 
005*37 
010001 

104455 

0004 70 

003642' 

011724' 

013737 

012704 

004737 

103407 

005237 

010001 

104456 



290$: 



141030 
000144 



002214 



330$: 



CKLOOP 






j LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


SFREE.R1 




jGET DATA READ 




MOV 


0100., R2 




{READ EXPECTED 




CMP 


R1.R2 




jDID TAPE STAY POSITIONED 




BEQ 


330$ 




I BR. IF EXPD • RECD 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0,T31WNG 


EXPREC 


;TAPE DATA NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
311 

T31WNG 
EXPREC 



002214' 000017 
017074* 



999$: 

5 ♦ 

;TEST 

i 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG, #15, 

999$ 

PC.CKDROP 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10051: 

TRAP C$ESUB 
j IS ERROR COUNT AT 25 
;BR, IF LESS THAN 25 
j TRY TO DROP THE UNIT 



3, SUBTEST 2 



VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICRODIAGNOSTIC ERRORS ARE PRESENT (1HEY WOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



046*20' 
046512' 
046554 ' 
015664' 

002214' 



BGNSUB 




,>>>>>>>>>>>> BEGIN SUBTEST 

T3,2: 

TRAP 


JSR 


PC.T31REST 


{SET COMMAND PACKET 


JSR 


PC.T31RT2 


iSET UP OTHER COMMANO PACKET 


JSR 


PC.T31RT3 


{SET UP OTHER COMMAND PACKET 


JSR 


PC.SOFINIT 


j DO INITIALIZE ON CONTROLLER 


BCS 


20$ 


{BR IF INIT WAS OK 


INC 


FATFLG 


j ERROR COUNT 


MOV 


R0.R1 


{CONTENTS OF TSSR REGISTER 


ERRDF 


ERRNO.SFIERR.SFIMSG 


: FATAL ERROR TSSR WAS NOT OK 



>>>>> >>>>>>> 



C$BSUB 



002174 
042770 
010552 

002214 



043010' 20$: 



MOV 


UNITN,T310SW 


MOV 


0T31PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


R0.R1 


CRRHRD 


ERRNO.WRTMSG.SFIMSG 



TRAP 


C$ERDF 


.WORD 


312 


.WORD 


SFIF.RR 


.WORD 


SFIMSG 


PACKET 





{SET UP UNIT NUMBER IN 
{SUBROUTINE NEEDS PACKFT ADDRESS 
{ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMANO ISSUED OK 

j ERROR COUNT 
j SAVE CONTENTS OF TSSR 



{WRITE CHARACTERISTIC 



FAILED 
TRAP 



C$ERHRD 



N10 



TEST 1 - HARDWARE TEST 
TEST 3; NO-OP ("CLEAN 



1-8 TEST MACRO M1113 
TAPE") AND INITIALIZE 



2134 

2135 
2136 
2137 
2138 
2142 



2143 

2144 
2145 
2146 
2147 
2148 
2149 
2153 



2154 

2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2171 



2172 

2173 
2174 
2175 
2176 
2180 



042222 

042224 

042226 

042230 

042230 

042232 

042236 

042240 

042242 

042246 

042246 

042250 

042252 

042254 

042256 

042256 

042260 

042264 

042266 

042272 

042274 

042276 

042302 

042302 

042304 

042306 

0*2310 

042312 

042312 

C42314 

042322 

042330 

042334 

04/340 

04.. 344 

04^352 

042356 

042362 

042366 

042372 

042374 

042376 

042402 

042402 

042404 

042406 

0424 10 

042412 

042412 

012414 

042420 

042422 

042424 

042430 

042430 

0424 32 

042434 



0004 71 

005046' 

011/24* 

104406 
004 737 
103407 
010004 
005237 

104456 
000472 
044504' 
011730' 

: 04406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000473 
044155' 
015364' 

104406 
013737 
012737 
012704 
012700 
004737 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000474 
045040' 
011736' 

104406 
004737 
103407 
010001 
005237 

104456 
0004 75 
044504 



23$ 



010704 



002214' 



30$ 



FEB -84 


18 j 55 




SEQ 130 






.WORD 


313 






.WORD 


WRTMSG 






. WORO 


SFIMSG 


CKLOOP 




j LOOP IF SELECTED 








TRAP 


C$CLP1 


JSR 


PC, REWIND 


jCALL TAPE REWIND COMMAND 




BCS 


30$ 


j BR, IF NO PROBLEM 




MOV 


R0,R4 


j SET UP REWIND PACKET ADDRESS 




INC 


FATFLG 


; ERROR COUNT 




ERRHRU 


ERRN0.T31RUN, PKTSSR 


{REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


314 






.WORD 


T31RWN 






.WORD 


PKTSSR 



043020 
000002 



002214 



40$ 

003116' 043122' 

140005 043120' 65$ 

043120' 

000144 

017314' 

000144 043126' 

OOCOOO 

016140' 

000002 

000200 



002214 



80$; 



010704 



002214 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



CKLOGP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
FRRHRD 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



T31BFR*6,R1 
R1,R2 

*em.R2 

R1.R2 

40 $ 

FATFLG 

ERRN0,T31B0T,EXPREC 



TRAP 



FREE.T31WB 

$140005. T31PK3 

4T31PK3.R4 

$100., RO 

PCFILLMEM 

0100..T31SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

$SSR,R2 

R1.R2 

80$ 

FATFLG 

ERRN0.T31WDC, PKTSSR 



PC, REWIND 

230$ 

R0,R1 

FATFLG 

ERRN0.T31RWN.EXPREC 



[LOOP IF SELECTED 

;?ICK K)° XSTO 

{SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

{OOES EXP - REC'D 

I BR, IF EQUAL (OK) 

{ERROR COUNT 

{TAPE NOT AT 80T AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{STARTING WRITE BUFFER ADDRESS 

{WRITE DATA.CVC-l.ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 
I SET PATTERN IN CORRECT 

{FILL MEMORY WITH RECORD SIZE 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

jGFT TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IF OK 

{ERROR COUNT 

iTSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{CALL TAPE REWIND COMMAND 

}BR. IF NO PROBLEM 

{SAVE TSSR 

i ERROR COUNT 

{REWIND NOT ACCEPTED 

TRAP 

.WORD 

.WORD 



C$CLP1 



C$ERHRD 
315 
T31B0T 
EXPREC 

C$CLP1 



REGISTER 



C$ERHRD 
316 

T31WDC 
PKTSSR 

CsCLPl 



C$ERHRD 

317 

T31RWN 



Bll 



TEST I - HARDWARE TEST 1-8 TEST MACRO M111S 01-FEB-B4 18(55 
TEST 3j NO-OP ("CLEAN TAPE") AND INITIALIZE 



2181 

2182 
2183 
2184 
218b 
2186 
2187 
2191 



2192 

2193 
2194 
2195 
2196 
2197 
2196 
2199 
2200 
2201 
2202 
2206 



2207 

2208 
2209 
2210 
2211 
2212 
2213 
2217 



2218 

2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2232 



042436 

042440 

042440 

042442 

042446 

042450 

042454 

042456 

042460 

04246-4 

042464 

042466 

042470 

0424 72 

0424 74 

0424 74 

042176 

042504 

042510 

042514 

042520 

042524 

042530 

042534 

042536 

042540 

042544 

042544 

042546 

042550 

042552 

042554 

042554 

0*2556 

042562 

042564 

042570 

042572 

042574 

042600 

042600 

042' 02 

042604 

042606 

042610 

042610 

042612 

042620 

042624 

GV-S52 

042636 

042642 

042646 

042652 

042654 

042656 

042662 



2lOt j CKLOOP 

MOV 
MOV 
BIS 
CMP 
OEQ 
INC 
ERRHRD 



015364' 

104406 

013701 043020' 

010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000476 
044155' 
015364' 

240$: CKLOOP 
10440C 

012737 041012 043120' 265$ i MOV 
012704 C43120' MOV 

010337 043126' MOV 

010465 OOOOOD MOV 

004737 016140 JSR 

016501 000002 MOV 

012702 000200 MOy 

020102 CMP 

001406 BEQ 

005237 002214' INC 

ERRHRD 
104456 
000477 
043353' 
011736' 



104406 

H3701 043020' 

010102 

052702 000002 

020102 

001406 

005237 002214' 

10445*. 
000500 
044155' 
015504' 

104406 

012737 140001 043120 

012704 043120' 

012737 000144 043126 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 

020102 

001406 

005237 002214* 



290$} CKLOOP 



285*1 CKLOCP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



T31BFR.6.R1 

R1.R2 

*eiTl,R2 

R1.R2 

240$ 

FATFLG 

ERRN0.T31B0T, EXPREC 



♦041012, T31PK3 

♦T31PK3.R4 

R3,T31SZ 

R4,TSDB(R5) 

PC,WAITF 

TSSR(R5),R5 

♦SSR.R2 

R1.R2 

280$ 

FATFLG 

ERRN0,T3lRDF,PKTSSR 



MOV 


T3lBFRi6,Rl 


MOV 


R1.R2 


BIS 


•BIT\ ( R2 


CMP 


R1.R2 


BEQ 


285$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T31B0T, EXPREC 



0140001, T31PK3 

©T31PK3.R4 

♦100. ,T31SZ 

R4.T5DBCR5) 

PC.WA1TF 

1SSRvR5),R1 

♦SSR.P2 

R1.R2 

290$ 

FAUlG 

ERRNO a T31RDE,PKTSSR 





SEQ 131 


.WORD 


EXPREC 


jLOOP I c SELECTED 




TRAP 


C$CLP1 


iPICK UP XSTO 




l SET UP EXPECTED 




jSET BOT BIT IN EXPECTED 




jDOES EXP • REC'D 




)BR, IF EQUAL COK) 




i ERROR COLWSIT 




iTAPE NOT AT BOT AFTER REWIND 





REUINO 




TRAP 


C$ERHRO 


.WORD 


316 


.WORD 


T31B0T 


.WORD 


EXPREC 



jLOOP IF SELECTED 

TRAP 
■INITIALIZE, CVC-1 COMMANO 
tSET UP R4 WITH PACKET ADDRESS 
iSET UP RECORD SIZE IN PACKET 
I ISSUE COMMAND 
>WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

I ERROR COUNT 
INCORRECT AFTER READ DATA 

TRAP 



C$CLP1 



I SET 
I ARE 
iBR, 

ilSSR 



I LOOP I'* SELECTED 

iPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

iBR, IF EQUAL (OK) 

I ERROR COUNT 
jTAPE NOT AT BOT AFTER 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
319 

T31RDF 
PKTSSR 

C$CLP1 



REWINO 




TRAP 


CIERHRD 


.WORD 


3?0 


.WORD 


T3XB0T 


.WORD 


EXPREC 



lLOOP IF SELECTED 

TRAP 
»REA0,ACK,CVC*1 COMMAND 
iSET UP R4 WITH PACKET AOORESS 
I SET UP RECORD SIZE IN PACKET 
j ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 

LP EXPECTED 

THET EQUAL 

IF OK 

j ERROR COUNT 
I TSSR INCORRECT AFTER READ DATA 



CICLP1 



iCtT 

i ARE 
i3R, 



test i - hardware: test 

TEST 3: NO-OP ( 'CLEAN 



Cll 



1-8 TEST MACRO M1U5 
TAPE") AND INITIALIZE 



01 



2233 

2234 

2236 
2237 
2238 
2242 



2243 
2244 



2245 
2246 
224 7 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 
2259 
2261 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2279 
2281 
2282 
2283 



042662 
042664 
042666 
042670 
042672 
042674 
042674 
042700 
042704 
042706 
042710 
042714 
042714 
042716 
042720 
042722 
042724 
042724 
042724 
042724 
042726 
0427* I 
042736 
042742 



042742 
042746 
042750 
042754 
042754 
042756 



042760 
042770 
042770 
042772 
04277/, 
042776 
043000 
043000 
043002 
043004 
043006 
04 3010 
043012 



043074 
043100 
043100 
043102 



104456 
000501 
043154* 

011736' 

104406 

017701 140216 

012702 000144 

020102 

001406 

005237 002214' 

104456 
000502 
043220' 
015364' 



290$: 



33015 



FEB-84 


18:55 




SEQ 132 






TRAP 


C$ERHRD 






.WORD 


321 






.WORD 


T31R0E 






.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


CtCLPl 


MOV 


QFREE.R1 


iGET DATA READ 




MOV 


0100,, R2 


jREAD EXPECTED 




CMP 


RI.R2 


{DID TAPE STAY POSITIONED 




BF.Q 


330;) 


{BR, IF EXPO - RECD 




INC 


PATFLG 


, ERROR COUNT 




ERRHRD 


ERRN0.T31WNH.EXPREC 


jTAPE POSITION NOT CORRECT AFTER INIT 






TRAP 


C$ERHRD 






.WORD 


322 






.WORD 


T31WNH 






.WORD 


EXPREC 



104403 

023727 
103402 
004737 



002214' 000017 
017074' 



004737 016350' 

103002 

000137 041252' 

104432 
003620 



999$: 

i 

i 

I 



163$: 



J * 



ENDSUO 



CMP 
BLO 
JSR 



JSR 
BCC 
JMP 
EXIT 



FATFLG,#15, 

999$ 

PC.CKOROP 



PC.TSTLOOP 
163$ 
T31L00P 
TST 



j >>>>>>>>>>> > END SUBTEST >>>•>>>>>>>>> 

L10052: 

TRAP CJESUB 

jIS ERROR COUNT AT 25 
iBR, IF LESS THAN 25 
I TRY TO DROP TH£ UNIT 



lOO WE NEED TO ITERATE TEST 

{BR. IF NO LOOP REQUIRED 

lEXECUTE AGAIN 

{ALL DONE THIS TEST 

TRAP C$EXIT 

.WORD L 10050 



10O0O4 
043000' 
000000 
000012 

04301? 
000000 
000024 
000000 

000000 



j LOCAL STORAGE 


FOR THIS TEST 


.BLKB 


LO-<.-TSV2£7 


T31PACKET: 




.WORD 


100004 


.WORD 


131DATA 


.WORD 


C 


.WORD 


10. 


T31DATA: 




.WORD 


T31BFR 


.WORO 





.WORD 


20. 


.WORD 





T31DSWj .WORD 





T31BFR: .BLKW 


25. 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMANO, WITH 

{ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

iSELECr DRIVE 
{MESSAGE BUFFER 



ACK 



{WRITE SUBSYSTEM MEMORY COMMAND PACKET 



100006 
043130' 



T31PK21 



.BLKB 10-<. -TSV26?> 



.WORD 
.WORD 



100006 
T31BF2 



l WRITE SUB S>3 MEM 
{ADDRESS QP SELUCT 



COMMAND, AND ACK 
BLOCK DATA 



m\ Si wwi^ Mjvwmxmk oi - feb - 84 i8!55 



D1.1 



SEQ 133 



2284 043104 


000000 








.WOPO 


2285 043106 


000006 








,W0RD 


2286 












2288 043110 










♦ Bt.KB 


2290 043120 








T31PK3; 




2291 043120 


100005 








.WORD 


2292 043122 








T31RB: 




2293 043122 


003116' 






T31WB; 


.WORD 


2294 043124 


000000 








.WORD 


2295 043126 


000000 






T31S2t 


.WORD 


2296 










.EVEN 


2297 








j 




2298 








; 




2299 








i 




2300 043130 








T31BF2; 




2301 043130 


010 






T31B50; 


.BYTE 


2302 043131 


200 






T31BS1: 


.BYTE 


2305 043132 


000000 






T31S2: 


.WORD 


2304 043134 


000000 






T31S3{ 


.WORD 


2305 








I 




2306 








i 




2307 










.EVEN 


2308 








jTAPE MOTION P 


2309 












2310 C-13136 


100205 






T31RN: 


.WORD 


2311 043140 


100605 






T31W0P. 


,WOR0 


2312 043142 


102205 






T31C0N! 


.WORD 


2313 043144 


177777 








.WORD 


2314 












2315 








i 




2316 043146 


000000 






T31CNT, 


.WORD 


2317 043150 


000000 






T31CNU 


.WORD 


2318 043152 


000000 






T31DLY 


.WORD 


2319 












2320 












2321 








1 » 




2322 








I LOCAL 


TEXT ME 


2323 








1 - 




2324 












2325 












2326 












2327 043154 


124 


123 


123 


T31RDE 


.ASCIZ 


2328 043220 


124 


141 


160 


T31WNH 


.ASCIZ 


2329 043301 


124 


141 


160 


T31WNG 


.ASCIZ 


2330 043353 


124 


123 


123 


T31RDF 


.ASCIZ 


2331 043422 


122 


105 


122 


T31RRF 


.ASCIZ 


2332 043517 


120 


117 


123 


T31SCi 


.ASCIZ 


2333 043601 


122 


111 


102 


T31L0R 


.ASCIZ 


2334 043651 


124 


123 


123 


T31W0F 


.ASCIZ 


2335 043726 


111 


154 


154 


T31L0Q 


.ASCIZ 


2336 044007 


122 


105 


122 


T31SSR 


.ASCIZ 


2337 044043 


124 


123 


123 


T31W0E 


.ASCIZ 


2338 044155 


124 


141 


160 


T31B0T 


.ASCIZ 


2339 044250 


116 


117 


055 


T31TIM 


.ASCIZ 


2340 044350 


122 


105 


122 


T31E0T 


• .ASCIZ 


2341 044427 


124 


123 


123 


T31TM: 


, ASCIZ 


2342 044504 


122 


145 


167 


T31RWN 


5 .ASCIZ 




6. 

10-< . -*SV267> 
100005 

FREE 







10 
200 





100205 
100605 
102205 
177777 



j SIZE OF DATA PACKET 

I REREAD COMMAND, AND ACK 
i ADDRESS OF WRITE BUFFER 
tSIZE OF BUFFER (EXTENT) 



iBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
I DATA AREA 



jREREAD DATA (NEXT) 
t REREAD DATA RETRY 
I WRITE CONT INDUS 
I END OF DATA 



.-TAPE TIMER COUNTER STORAGE AREA 
I TAPE TIMER COUNTER STORAGE AREA 
I DELAY COUNTER 



TSSR Not Correct After READ Command' 

Tap* Position Incorrect After INITIALIZE Command' 

Tap* Position Incorrect After NOP Command' 

TSSR Incorrect Aftrr READ DATA Command' 

REREAD Previous (Space Reverse, R**d Forward) Command Foiled* 

POSITION (Space Command) Failed, TSSR Not Correct' 

RIB NOT SET AFTER REAH REVEPSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 

REREAD COMMAND Not Accepted' 

TSiR Not Correct After NO-OP ("CLEAN 

Tape Not At BOT After REWIND Command 

NO-OP ("CLEAN TAPE") AND INITIALIZE' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT 

TSSR Not Correct After REREAD COMMAND Reject' 

Rewind (POSITION) Command Not Accepted' 



TAPE") AND INITIALIZE Command ( At BOT 

CB01 Not Set In XSTO)' 

S Erase Tape Not Long Enough' 



Ell 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 Ol-FEB-84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 134 



2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 
2355 

2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 



044553 
044626 
044675 
044750 
045040 
045113 
045166 
045241 
045330 
045412 
045474 
045562 
045650 

045771 
046046 
046153 
046256 
046353 



046420 
046420 
046424 
046430 
046434 
046440 
046442 
046446 
046452 
046454 
046460 
046462 
046466 
046472 
046500 
046502 
046506 
046510 



046512 
046512 
046516 
046522 
046526 
046532 
046534 
046540 
046542 
046546 
046550 



122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
116 

124 
124 
124 
104 
116 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 



101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
117 

123 

123 
123 
141 
117 



115 
123 
151 
123 
123 
103 
102 
HI 
141 
141 
163 
141 
055 

123 
123 
123 
164 
055 



042770' 

100004 

043000' 

C00012 
043012' 

000024 

000000 
000030 
177777 043012' 

000000 



043100' 

100006 

043130' 

000006 

043130' 



T31RNC 

T31AM3 
T310FL 
T31W0D 
T31WDC 
T31VCK 
TSlBAj 
T31WSS 
T31L0N 
T31L0P 
T31PBP 
T31TRL 
T31NEF 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAD DATA Command, SWB Bit Set* 

TSSR Nrt Correct After REREAD DATA Command' 

CVC Set. DioV't Reeet VCK In Message Buffer' 

TSBA Not Correct After REREAD DATA Command' 

WRITE SUBSYSTEM MEMORY Command Not Accepted CRAM Read)' 

Reading Long Record Failed To Set RLL Bit In XSTO' 

Reading Long Record Failed To Set RLS Bit In XSTO' 

Residual Byte Count Incorrect After Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

NO-0? ("CLEAN TAPE") AND INITIALIZE, At First Record, Failed To Set RIB Bit 



'TSSR Not Correct After SPACE RECORDS Command' 

'TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALIZE, Into BOT 

'TSSR Not Correct After NO-OP ("CLEAN TAPE") ANO INITIALIZE Command' 

'Data Compare Error, Dai:a Read From Tape Not Equal To Written' 

. ASCIZ 'NO-OP ("Clean Tape") And INITIALIZE' 



T31SCF 
T31TSA 
T31WRF 
T31DTA 
TST31ID; 

t ♦ 

{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; WRITE SUBSYSTEM MEMORY COMMAND 

{ 



{SAVE THE REGISTERS 

I START OF THF. PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK, 

t ADDRESS OF CHARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



T31REST; 




SAVREG 




MOV 


0T31PACKET,R1 


MOV 


0100004, (Rl)* 


MOV 


0T31DATA,(R1)* 


CLR 


CR1)» 


MOV 


010., (RD* 


MOV 


0T31BFR,(R1)* 


CLR 


(RD* 


MOV 


020., (RD* 


CLR 


(Rl)* 


MOV 


00, (Rl) 


MOV 


024. ,R2 


64$: MOV 


0177777. T31BFR(R2) 


TST 


(R2) 


CMP 


00. R2 


BNE 


64* 


RTS 


PC 


T31RT2: 




SAVREG 




MOV 


0T31PK2,R1 


MOV 


0100006, (Rl)* 


MOV 


0T31BF2,(R1)* 


CLR 


(Rl)* 


MOV 


46..CR1)* 


CLR 


(Rl)* 


MOV 


0T3lBr2.Rl 


CLR 


(Rl)* 


CLR 


(Rl) 



TO BE CLEARED 
BUFFER 



{SELECT DRIVE ZrMO 

{NUMBER OF LOCATIONS 

{ALL ONES TO MESSAGE 

tNtr'XT LOCATION 

{AT END OF LOOP YET 

{KEEP GOING UNTIL DONE 

{RETURN 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM. WITH ACK, 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



Fll 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 01 -FEB -84 18:55 
TEST 3: NO-OP ("CLEAN TAPE") AND INITIALIZE 



SEQ 135 



2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 



2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 

244 7 
2452 

2453 
2454 
2455 
2456 
2457 



046552 
046554 
046554 
046560 
046564 
046566 
046570 
046572 
046574 
C46576 
046576 
046576 



000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



T31RT3: 



RTS 



PC 



043120' 



SAVREG 




MOV 


*T31,-'K3,R1 


CLR 


(Rl)f 


CLR 


CRD* 


CLR 


(Rl)» 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





tRETURN 

I SAVE REGISTERS 

i SET UP POINTER ADDRESS 

t COMMAND SPACE 

j ADDRESS OF DATA BLOCK 

lEXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

) RETURN 



L 10050: 



TRAP 



CSETST 



.SBTTL TEST 4: Erase And Operation Incomplete 



046600 
046600 
046600 
046606 
046612 
046616 
046624 



VERIFIES THAT AN ERASE C0H1AN0 ISSUED WHEN THE TAPE IS 
POSITIONED AT BOT OPERATES PROPERLY AND ACTUALLY ERASES TAPE 
THE FOLLOWING TEST SEQUENCE IS PERFORMED: 



1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, ANO THE TAPE IS REWOUND AGAIN* 

2. AN ERASE COMMAND IS ISSUSD, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND STATUF IS CHECKED 
CBOT SHOULD BE 0). 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH TAPE STATUS ALERT, THAT THE 
REVERSE INTO BOT (RIB) STATUS BIT IS SET, ANO THAT NO 
DATA IS TRANSFERRED, THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND. 



THE TEST CONSISTS OF THE FOLLOWING 3 SUBTESTS 



BGNTST 



012737 
012700 
004737 
012737 
005037 



006166' 002172' 

052460' 

1 6402' 

000005 002210* 

051330' 



MOV 


*EPRT1,EPRTSW 


MOV 


*TST32ID,R0 


JSR 


PCTSTSETUP 


MOV 


05.LOOPLNT 


CLR 


T32CNT 



T4:: 

iPRIMARY ERROR MESSAGE 

jASCII MESSAGE TO IDENTIFY TEST 

jDO INITIAL TEST SETUP 

■PERFORM 5 ITERATIONS 

{CLEAR TAPE RECORD COUNTER 



i 



Gil 



TEST I - HARDWARE TEST 1-8 TEST MACRO MIU3 
TEST 4: ERASE AND OPERATION INCOMPLETE 



01-FEB-84 18j55 



SEQ 136 



2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 

24 72 
2473 
2474 



2475 
2476 
2477 
2478 
2479 
2480 
2481 



2482 
2483 
2484 
2488 
2489 



2490 
2491 
2492 
2493 
2494 
2498 
2499 



2500 
2501 



046630 



046630 
046630 
046630 
046632 
046636 
046642 
046646 
046654 
046660 
046662 
046662 
046666 
046670 
046674 
046676 
046702 
04670" 
046710 
046712 
046716 
046720 
046724 
046726 
046726 
046730 
046732 
046734 
046736 
046744 
046750 
046754 
046756 
046762 
046764 
046764 
046766 
046770 
046772 
046774 
0467 74 
046776 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 

104455 
000621 
003642 
011724 
013737 



j TEST 4, SUBTEST 1 



J 



j VERIFIES THAT A Erase And Operation Incomplete COMMAND ISSUED WHILE 
jTHE TAPE IS POSITIONED AT BOT CAUSES FUNCTION REJECT 
{TERMINATION, WITH THE NON -EXECUTABLE FUNCTION CNEF) 
j ERROR BIT SET. 



T32L00P 



104402 

004737 052520' 

004737 052612' 

004737 052642* 

012737 176750 051334' 

004737 015664' 

103426 



10$ t 



000250 

002116' 

177772 

177756 

051334 

002214 



002174' 051160' 20$: 



012704 051140' 

004737 010552' 

103407 

005237 002214' 

010001 

104456 
000622 
005046' 
011724' 

104406 

004737 010704' 



BGNSUB 




I >>>>>>>> >>>> BEGIN SL6TEST >>>>>>>>>>>> 






T4.1: 








TRAP 


C$BSUB \ 


JSR 


PC,T32REST 


» SET COMMAND PACKET 




JSR 


PC,T32RT2 


{SET UP OTHER COMMANO PACKET 


i 


JSR 


PC.T32RT3 


;SET UP OTHER COMMAND PACKET 


i 


MOV 


065000., T32DLY 


{SET UP DELAY COUNTER 




JSR 


PC.SOFINIT 


?D0 INITIALIZE ON CONTROLLER 




BCS 


20$ 


{BR IF INIT WAS OK 




DELAY 


250 


{DELAY ABOUT .25 SEC 








MOV 


*25o,cpc:w 






.WORD 


i 






MOV 


L$DLY,(PC)» 






.WORD 









DEC 


-6CPC) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


. -20 


DEC 


T32DLY 


{BUMP COUNTED 




BNE 


10$ 


{BR, IF COUNTER NOT DONE 




INC 


FATFLG 


{ERROR COUNT 




MOV 


R0.R1 


{CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO,SFIERR,SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


401 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T32DSW 


{SET UP DRIVE NUMBER 




MOV 


OT32PACKET,R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


{ISSUE WRITE CHARACTERISTICS 


1 


BCS 


25$ 


{BR, IF COMMAND ISSUED OK 




INC 


FATFLG 


{ERROR COUNT 




MOV 


R0.R1 


{SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO,WRTMSG, SFIMSG 


{WRITE CHARACTERISTIC FAILED 





25$ 



CKLOOP 

JSR PC, REWIND 



{LOOP IF SELECTED 
{CALL TAPE REWIND 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 
COMMAND 



C$ERHRD 

400 

WRTMSG 

SFIMSG 

C$CLPl 



Hll 



TEST I - 


- HARDWARE TEST 


1-8 TEST MACRO M 
ATION INCOMPLETE 


TEST 4; 


; ERASE 


ANO OPER 


2502 


047002 


103411 




2503 


047004 


010004 




2504 


047006 


oi6roi 


000002 


2505 


04 7012 


005237 


002214' 


2509 


047016 








04 701.6 


104456 






047020 


000623 






04 7022 


051520' 






04 7024 


011736' 




2510 


04 7026 








047026 


104406 




2511 


04 7030 


012703 


000400 


2512 


047034 


013737 


003U6' 051272' 


2513 


047042 


012737 


140005 051270' 


2514 


047050 


012704 


051270' 


2515 


047054 


010337 


051276' 


2516 


047060 


010465 


000000 


2517 


047064 


00*737 


016140' 


2516 


04 7070 


016501 


000002 


2519 


047074 


012702 


000200 


2520 


047100 


020102 




2521 


04 7102 


001406 




2522 


047104 


005237 


002214' 


2526 


047110 








047110 


104456 






047112 


000624 






047114 


052356' 






047116 


011736' 




2527 


04 7120 








047120 


104406 




2528 


047122 


005723 




2529 


047124 


02032 7 


001002 


2530 


047130 


001351 




2531 


047132 


004737 


010704' 


2532 


047136 


103411 




2533 


047140 


016501 


000002 


2534 


047144 


010004 




2535 


047146 


005237 


002214' 


2539 


047152 








04 7152 


104456 






047154 


000625 






047156 


0515c0' 






047160 


011736' 




2540 


04 7162 








047162 


104406 




2541 


04 7164 


013701 


051170' 


2542 


047170 


010102 




254 3 


047172 


052702 


000002 


2544 


047176 


020102 




2545 


04 7200 


001406 




2546 


04 7202 


005237 


0022X4' 


2550 


04 7206 








04 7206 


104456 






047210 


000626 






047212 


052206' 






047214 


015364' 




2551 


047216 







BCS 


26$ 


MOV 


R0,R4 


MOV 


TSSRCR5) $ R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T32RWN, PKTSSR 



26$: 



CKLOOP 



27$: 



MOV 


$256. ,R3 


MOV 


FREE.T32WB 


MOV 


0140005, T32PK3 


MOV 


*T32PK T ,,R4 


MOV 


R3,T32S7 


MOV 


R4,TSDBCR5) 


JSR 


PC.UIAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R ,R2 


BEQ 


ci 


INC 


FATFLG 


ERRHRD 


ERRN0.T32WDC, PKTSSR 



2fi$ 



CKLOOP 



TST 


CR3)* 


CMP 


R3, 051.4. 


BNE 


27$ 


JSR 


PC.REW1N0 


BCS 


30$ 


MOV 


TS$R(R5).R1 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T32RWN, PKTSSR 



SEQ 137 



30$ 



j BR, IF NO PROBLEM 

j SET UP REWIND PACKET ADDRESS 

»GET TSSR CONTENTS 

I ERROR COUNT 
j REWIND NOT ACCEPTED 



j LOOP IF SELECTED 



TRAP 


CIERMRD 


.WORD 


403 


,UORD 


T32RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



t STARTING RECORD SIZE 

j STARTING WRITE BUFFER ADDRESS 

jWRITE DATA.CVC-l.ACK COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

i SET UP RECORD SIZE IN PACKET 

j ISSUE COMMAND 

jWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

iSET UP EXPECTPO 

;ARE THEY EQUAL 

;BR, IF OK 

j ERROR COUNT 

j TSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
.WORD 
.WORD 



jLCOP IF SELECTED 



TRAP 



C$ERHRD 
404 
T32WDC 
PKTSSR 

C$CLP1 



tBUMP RECORD COUNTER 

;AT MAX SIZE YET 

tBR, IF NOT AT ENO OF LOOP 

j CALL TAPE REUINO COMMAND 

j BR, IF NO PROBLEM 

iGET TSSR CONTENTS 

I SET UP REWIND PACKET ADDRESS 

j ERROR COUNT 
I REWIND NOT ACCEPTED 



40$ 







TRAP 


C$ERHRD 






.WORD 


405 






.WORO 


T32RWN 






.WORD 


PKTSSR 


CKLOOP 




LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T32BFRf6,Rl 


(PICK UP XSTO 




MOV 


R1.R2 


;SET UP EXPECTED 




BIS 


06IT1,R2 


I SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


j DOES EXP - REC'D 




BEQ 


40$ 


»BR, IF EQUAL (OK) 




INC 


FATFLG 


j ERROR COUNT 




ERRHRD 


ERRN0,T32B0E,EXPREC 


j TAPE AT BOT AFTER ERASE 








TRAP 


C$ERHRD 






.WORD 


406 






.WORD 


T32B0E 






.WORD 


EXPREC 



CKLOOP 



lLOOP IF SELECTED 



Ill 



TEST i - 


• HARDWARE TEST 


1-8 TEST MACRO t 


TEST 4; 


: ERASE 


AND OPERATION INCOMPLE H 




047216 


104406 




2552 


047220 


012737 


140411 051270 1 


2553 


047226 


012704 


051270' 


2554 


047232 


010465 


000000 


2555 


047236 


004737 


016140' 


2556 


047242 


016501 


000002 


2557 


04 7246 


012702 


000200 


2558 


047252 


020102 




2559 


047254 


001406 




2560 


047256 


005237 


002214' 


2564 


047262 








047262 


104456 






047264 


000627 






047266 


051636' 






047270 


011736' 




2565 


047272 








047272 


104406 




2566 


047274 


013701 


051170' 


2567 


047300 


010102 




2568 


047302 


042702 


000002 


2569 


047306 


020102 




2570 


047310 


001406 




2571 


047312 


005237 


002214' 


2575 


047316 








047316 


104456 






047320 


000630 






047322 


052206' 






047324 


015364' 




2576 


047326 








047326 


104406 




2577 


047330 


013737 


003116' 051272 


2578 


047336 


012737 


140401 051270 


2579 


047344 


012737 


000400 051276 


2580 


047352 


012704 


05127C 


2581 


04735C 


010465 


OOOOOO 


2582 


047362 


004737 


016140* 


2583 


047366 


016501 


000002 


2584 


047372 


012702 


100204 


2585 


047376 


020102 




2586 


047400 


001406 




2587 


047402 


005237 


002214' 


2591 


047406 








047406 


104456 






047410 


000631 






047412 


052131' 






047414 


011736' 




2592 


047416 








047416 


104406 




2593 


047420 


013701 


051176' 


2594 


047424 


010102 




2595 


047426 


052702 


OOOOOl 


2596 


047432 


020102 




2597 


047434 


001406 




2598 


047436 


005237 


002214' 


2602 


047442 








047442 


104456 






047444 


000632 





Ol-FEB-84 18 5 55 



MOV 


0140411, T52PK3 


MOV 


OT32PK3.R4 


MOV 


R4,TSD8(R5) 


JSR 


PC.WAITF 


MOV 


TS5R(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


50$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T32ERA, PKTSSR 



50$ 



CKLOOP 



MOV 


T32BFR*6,R1 


MOV 


R1.R2 


BIC 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


55$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T32B0E, EXPREC 



55${ 



CKLOOP 



MOV 


FREE.T32RB 


MOV 


0140401, T32PK3 


MOV 


0256,,T32SZ 


MOV 


OT32PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSRJSCJBIT2.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T32TSA,PKTSSR 



180$ 



SEQ 138 



TRAF CfCLPl 

j ERASE TAPE,CVC-1,ACK COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

i WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

, SET UP EXPECTED 

•ARE THEY EQUAL 

;BR, IF OK 

tERROR COUNT 

;TSSR INCORRECT AFTER ERASE DATA 

TRAP C$ERHRD 
.WORD 407 
.WORD T32ERA 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{PICK UP XSTO 

{SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

iSR, IF EQUAL (OK) 

{ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 408 
.WORD T32B0E 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

{ADDRESS OF BUFFER 

{READ REVERSE, ACK.CVC-1 COMMAND 

{SET UP THE SIZE OF RECORD 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED TAPE STATUS ALERT 

{ARE THEY EQUAL 

{BR, IF OK 

{ERROR COUNT 

{TSSR INCORRECT AFTER READ DATA 









TRAP 


C$ERHRD 








.WOflD 


409 








.WORD 


T32TSA 








.WORD 


PKTSSR 


CKLOOP 




{LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T32BFRfl4,Rl 


{GET XST3 STATUS WORD 






MOV 


R1.R2 


iSET UP EXPECTED 






BIS 


06ITO.R2 


{SET THE RIB BIT 






CMP 


R1.R2 


{ARE THEY EQUAL 






BEQ 


190$ 


{BR, IF EQUAL (GOOD) 






INC 


FATFLG 


{ERROR COUNT 






ERRHRD 


ERRN0.T32RIB, EXPREC 


tRIB SHOULD BE SET 


TRAP 
.WORD 


C$ERHRD 
410 
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2603 
2604 



2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

26316 

2637 

2638 

2639 

2640 

2641 

2642 

203 

2644 



2645 
2646 

264 7 
2648 
2649 
2650 
2654 
2655 



047446 
04 7450 
047452 
047452 
047452 
047452 
047454 
047462 
047464 
047470 



047470 
047470 
047470 
047472 
047476 
047502 
047506 
047512 
047514 
047520 
047522 
047522 



0517:56' 
015364' 



104403 
023727 
103402 
004737 



190$: 



.WORD 
.WORD 



SEQ 139 



T32RIB 
EXPREC 



002214' 000017 
017074' 



104402 

004737 
004737 
004737 
004737 
103407 
005237 
010001 

104455 



052520 ! 
052612' 
052642' 
015664' 

002214* 



ENDSUB 



CMP 
BLO 
JSR 



999$: 

i * 

Itest 



FATFLG.015. 

999$ 

PCCKDROP 



!>•»>>>>*>>>>>> END SU8TEST >>>>>>>>>>>^ 

L 10054 j 

TRAP C$ESU6 
jIS ERROR COUNT AT 25 
{BR, IF LESS THAN 25 
■TRY TO DROP THE UNIT 



4, SU6TEST 2 

VERIFIES THAT AN ERASE COMMANO EXECUTED WHEN THE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY AND DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS. THE TEST SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN, AND THE TAPE IS REWOUND AGAIN. 

2. A SPACE RECORDS FORWARD COMMAND IS ISSUED TO MOVE THE 
TAPE OFF OF BOT AND SKIP OVER THE FIRST SEVERAL 
RECORDS. 

3. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COMMAND IS ISSUED. IT lS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED AND THAT THE DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY THE ERASE COMMAND, AND THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 



BGNSU6 



JSR 


PC.T32REST 


JSR 


PC,T32RT2 


JSR 


PCT32RT3 


JSR 


PCSOFINIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDr 


ERRNO.SFIERR.SFIMSG 



j >>>>>>*>>>>> > BEGIN SUBTEST >>>*»>>> >>>> > 

T4.2: 

TRAP C$BSUB 
■SET COMMAND PACKET 
»SET UP OTHER COMMAND PACKET 
;SET UP OTHER COMMAND PACKET 
•DO INITIALIZE ON CONTROLLER 
j BR IF INIT WAS OK 

j ERROR COUNT 
I CONTENTS OF TSSR REGISTER 
j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
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2656 
2657 
2658 
2659 
2660 
2664 
2685 



2666 

2667 
2668 
2669 
2670 
2674 



2675 

2676 
2677 
2678 
2679 
2680 
2681 
2685 



2686 

2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2706 



047524 

047526 

047530 

047532 

047540 

047544 

047550 

047552 

047556 

047560 

047560 

047562 

047564 

047566 

047570 

047570 

047572 

047576 

047600 

047602 

047606 

047606 

047610 

047612 

04 7614 

047616 

047616 

047620 

047624 

047626 

047632 

047634 

047636 

047642 

047642 

047644 

04 7646 

047650 

047652 

047652 

047654 

04 7660 

047662 

047666 

047674 

047702 

047706 

047/10 

047714 

047720 

047724 

047730 

047734 

047740 

047742 

047744 

047750 



104406 
012703 
010300 
004737 
013737 
012737 
012704 
010300 
004737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
005237 



23$ 



000633 

003642' 

011724' 

013737 002174' 051160' 20$ 

012704 051140' 

004737 010552' 

103407 

005237 002214' 

^lOCOl 

104456 
000634 
005046' 
011724' 

104406 

004737 010704' 

103407 

010004 

005237 002214' 

104456 
000635 

051520' 
011736' 

104406 

013701 051170' 

010102 

052702 000002 

020102 

001406 

005237 002214' 

104456 
000636 
051336' 
015364' 



30$ 



MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
INC 
ERRHRD 



CKLOOP 



40$ j 



000144 



017314' 

003116' 051272' 

140005 051270' 65$ 

051270' 

017314' 

051276' 

000000 

016140' 

000002 

000200 



002214 



CKLOOP 

MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BF.Q 
INC 
ERRHRU 



UNITN.T32DSW 

#T32PACKET,R4 

PC.WRTCHR 

23$ 

FATFLG 

R0.R1 

ERRNO.WRTMSG, SFIMSG 



PC, REWIND 

30$ 

R0.R4 

FATFLG 

ERRN0,T32RWN,PKTSSR 



MOV 


T?2BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


0EQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T32B0T,EXPREC 



♦100., R3 

R3,R0 

PC.FILLMEM 

FREE.T32WB 

♦140005, T32PK3 

0T32PK3,R4 

R3.R0 

PC.FILLMEM 

R3.T32SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

♦SSR.R2 

R1.R2 

80$ 

FATFLG 

ERRN0.T32WDC.PKTSSR 



SEQ 140 



.WORD 411 
.WORD SFIERR 
.WORD SFIMSG 

jSET UP UNIT NUMBER IN PACKET 

j SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 
j ERROR COUNT 

j SAVE CONTENTS OF TSSR 

{WRITE CHARACTER!* 



.^TISC 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

jLOOP IF SELECTED 

TRAP 

iCALL TAPE REWIND COMMAND 

{BR, IF NO PROBLEM 

j SET UP REWIND PACKET ADDRESS 
j ERROR COUNT 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
412 
WRTMSG 
SFIMSG 

C$CLP1 



{LOOP IF SELECTED 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

I BR, IF EQUAL (OK) 

{ERROR COUNT 
jTAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
413 

T32RWN 
PKTSSR 

C$CLP1 



REWIND 




TRAP 


C$ERHRD 


.WORD 


414 


.WORD 


T32BOT 


.WORD 


EXPREC 



TRAP 



C$CLP1 



I STARTING RECORD SIZE 

{SET UP MEMORY FILL 

{CALL MEMORY FILLER 

{STARTING WRITE BUFFER ADDRESS 

{WRITE DATA.CVC-l.ACK C0.1MAND 

{SET UP R4 WITH PACKET ADDRESS 

{SET PATTERN IN CORRECT REGISTER 

{FILL MEMORY WITH RECORD SIZE 

{SET UP RECORD SIZE IN PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET \fi> EXPECTED 

{ARE THEY EQUAL 

l BR, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER WRITE DATA 
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l T HU13 



2707 

2708 
2709 
2710 
2711 
2712 
2713 
2714 
2718 



2719 

2720 
2721 
2722 
2723 
272<* 
2725 
2729 



2730 

2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2745 



2746 

2747 
2748 
2749 
2750 
2751 
2/52 



047750 
047752 
047754 
047756 
047760 
04 7760 
047762 
047764 
047770 
047772 
047776 
050000 
050002 
050006 
050006 
050010 
05003 2 
050014 
050016 
050016 
050020 
050024 
050026 
050032 
050034 
050036 
050042 
050042 
050044 
050046 
050050 
050052 
050052 
050054 
050060 
050064 
050072 
050076 
050102 
050106 
050112 
050116 
050120 
050122 
050126 
050126 
050130 
050132 
050134 
050136 
050136 
050140 
050146 
050154 
050162 
050166 
050172 



104456 
000637 
052356 1 
011736" 

104406 

005723 

020327 000156 

001341 

004737 010704- 

103407 

O10OO1 

005237 002214- 

104456 
000640 
051520' 
015364' 

104406 

013701 051170 

010102 

052702 000002 

020102 

001406 

005237 002214 

104456 
000641 
051336' 
015364' 



000001 

010356' 

140411 

051270' 

000000 

016140' 

000002 

000200 



002214 



012737 

012737 000144 

012704 051270' 

010465 000000 

004737 016140' 



80$ i 
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SEQ 141 






TRAP 


C$ERHRD 






.WORD 


415 






.WORD 


T32WDC 






.WORD 


PKTSSR 


CKLOOP 




j LOOP IF SELECTED 








TRAP 


C$CLP1 


TST 


(R3)* 


; BUMP RECORD SIZE COUNTER 




CMP 


R3.4110. 


;AT 160 SIZE YET 




3NE 


65; 


tBR, IF MORE RECORDS TO WRITE 




JSR 


PC, REWIND 


iCALL TAPE REWIND COMMAND 




BCS 


230$ 


iBR, IF NO PROBLEM 




MOV 


R0.R1 


;SAVE TSSR 




INC 


FATFLG 


j ERROR COUNT 




ERRHRD 


ERRN0.T32RWN, EXPREC 


i REWIND NOT ACCEPTED 








TRAP 


C$FRHRD 






/WORD 


416 






. WORD 


T32RWN 






.WORD 


EXPREC 



230$; CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



240$ 



051270' 265$ 



104406 
0!.27O3 
004737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
000642 
051636' 
011736 



104406 

013737 0031.16' 051272 
140401 



280 1 



051270' 
051276' 



CKLOOP 

MOV 
JSR 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

MOV 

MOV 
MOV 
MOV 
MOV 
JSR 



{LOOP IF SELECTED 



T32BFRf6,Rl 

R1.R2 

4BIT1.R2 

R1.R2 

240$ 

FATFLG 

ERRN0.T32B0T. EXPREC 



TRAP 



*1,R3 

PC, SPACE 

$14041 1.T32PK3 

OT32PK3.R4 

R4.TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

0SSR.R2 

R1.R2 

280$ 

FATFLG 

ERRN0.T32ERA, PKTSSR 



FREE.T32RB 

VU40401.T32PK3 

0100..T32SZ 

OT32PK3.R4 

R4.TSDBCR5) 

PC.WAITF 



C$CLP1 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL COK) 

{ERROR COUNT 
{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 
SET UP FOR SPACE COMMAND 
ISSUE SPACE COMMANO 1 FORWARD 
ERASE DATA.ACK COMMAND 
SET UP R4 WITH PACKET ADDRESS 
ISSUE COMMAND 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
SET UP EXPECTED 
ARE THEY EQUAL 
BR. IF OK 

{ERROR COUNT 
j TSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
{LOOP IF SELECTED 

TRAP 
{ADDRESS OF BUFFER 
{READ REVERSE. ACK.CVC-1 COMMAND 
i SET UP THE SIZE OF RECORD 
iSEi' UP R4 WITH PACKET ADDRESS 
{ISSUE COMMAND 
I WAX! I- OR SSR TO SET 



C$ERHRD 
417 
T32B0T 
EXPREC 

C$CLP1 



C$ERHRD 
418 
T32ERA 
PKTSSR 

C$CLP1 



mi: 
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2753 

2754 
2755 
2756 
2757 
2761 



2762 

2763 
2764 
2765 
2766 

2767 
2771 



2772 

2773 

2774 



2775 
2776 
2777 
2778 
2779 
27Q0 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
279t 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 



050176 
050202 
050206 
050210 
050212 
050216 
050216 
050220 
050222 
050224 
050226 
050226 
050730 
050234 
050240 
050242 
050244 
050250 
050250 
050252 
050254 
050256 
050260 
050260 
050262 
050262 
050262 
0J0262 
050264 
050272 
050274 
050300 



016501 OC0002 

012702 000200 

020102 

001406 

005237 002214' 

104456 
000643 
052131' 
011736' 

104406 

017701 132662 

0127C2 000144 

020102 

001406 

005237 002214* 

104456 
000644 
052275* 
015364' 

104406 



104403 

023727 002214' 000017 

103402 

004737 017074- 



290$; 
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SEQ 142 


MOV 


TSSR(R5),R1 




j GET TSSR CONTENTS 






MOV 


0SSR,R2 




|SET UP EXPECTED TAPE 


STATUS ALERT 


CMP 


R1.R2 




{ARE THEY EQUAL 






BEQ 


290$ 




{BR, IF OK 






INC 


FATFLG 




} ERROR COUNT 






ERRHRD 


ERRN0.T32TSA 


PKTSSR 


j TSSR INCORRECT AFTER 


READ DATA 
TRAP 
.WORD 
.WORD 

. WORD 


CIERHRD 
419 

T32TSA 
PKTSSR 


CKLOOP 






j LOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


8FREE.R1 




{GET DATA READ 






MOV 


#100., R2 




j SHOULD BE 100 






CMP 


R1.R2 




1 CHECK 'EM OUT 






BEQ 


300$ 




j BR, IF OK 






INC 


FATFLG 




{ERROR COUNT 






ERRHRD 


ERRN0,T32ECF 


.EXPREC 


{ERASE COMMAND DIDN'T 


WORK 





300?: 
330$: 



CKLOOP 



ENDSUB 



{LOOP IF SELECTED 



WORK 




TRA/- 


C$ERHRD 


.wrsiii 


420 


.WUt<D 


r 32ECF 


.WORD 


FXPRFC 



TRAP 



C$CLP1 



>>>>>>>>>>>> 



999$: 



CMP 
BLO 
JSR 



FATFlG.015, 

999$ 

PCCKDROP 



END SUBTEST 
L10055: 

r uAP 
j IS ERROR COUNT AT 25 
:BR. IF LESS THAN 25 
{TRY TO DROP THE UNIT 



>>>>>>>>>>>> 



C$E3U8 



TEST 4, SUBTEST 3 



VERIFIES THAT AN ERASE COMMAND ENCOUNTERING THE EOT MARKER, OR 
EXECUTED BEYOND THE EOT MARKER, CAUSES TAPE STATUS ALERT 
TERMINATION WITH THE EOT STATUS BIT SET. ALSO VERIFIES THAT THE 
OTHER TAPE MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 
RESULT IN UNREC0VERABL6: ERROR TERMINATION AND OPERATION 
INCOMPLETE STATUS. THE FOLLOWING TEST SEQUENCE IS EXECUTED: 

1. THE TAPE IS REWOUND. 

2. ERASE COMMANOS ARE REPEATEDLY ISSUED UNTIL FOT STATUS 
IS SEEM, AN ERROR IS REPORTED IF ANY TERMINATION OTHER 
THAN NORMAL (WITH CH-O) OR TAPE STATUS ALERT (W^TH 
ECT-1) IS ENCOUNTERED, IF THE CONTRO'.LER OR TRANSPORT 
DOES NOT DETECT THE EOT, THE TRANSPORT WILL FAULT. 
THIS IS REPORTED AS A FATAL ERROR AND THfc TEST IS 
ABORTED. 

3. AN ADDITIONAL ERASE COMMAND IS ISSUED AND IT IS 
VERIFIED THAT TAPE STATUS ALERT TERMINATION RESULTS, 
WITH EOT-1. 



Nil 



TEST I - HARDWARE TEST 


1-8 TEST MACRO M 


TEST 4: ERASE 


AND OPERATION INCOMPLETE 


2804 






2805 






2806 






2807 






2808 






2809 






2810 






2811 






2812 






2813 






2814 






2815 






2816 






2817 






2818 050300 






050300 






050300 


104402 




2819 050302 


004 737 


052520' 


2820 050306 


004737 


052612' 


2821 050312 


00473 7 


052642' 


.V822 050316 


012737 


176750 051334' 


2823 050324 


004737 


015664' 


2824 050330 


103426 




2825 050332 






050332 


012727 


000250 


050336 


000000 




050340 


013727 


002116' 


050344 


000000 




050346 


005367 


177772 


050352 


001375 




050354 


005367 


177756 


050360 


001367 




2826 050362 


005337 


051334' 


2827 050366 


001356 




2828 050370 


00523 7 


002214' 


2832 050374 


010001 




2G33 050376 






050376 


104455 




050400 


000645 




050402 


003642' 




050404 


011724' 




2834 050406 


013737 


002174' 051160' 


2835 050414 


052737 


000040 051160' 


2836 050422 


012704 


051140' 


2837 050426 


004737 


010552' 


2838 050432 


103407 




2839 G50434 


005237 


002214' 


2843 050440 


010001 




2844 050442 






050442 


104456 




050444 


000646 




050446 


005046* 




050450 


011724' 




2845 050452 






050452 


104406 




2846 050454 


004 73 7 


010704' 


2847 050460 


103411 
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SEQ 143 



4. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS 
C ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI-1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
(GPP-O) REREAO PREVIOUS COPP-1) REREAD NEXT (OPP-1) 
REREAD NEXT (OPP-0) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



BGNSUB 



10$ 



DEC 


T32DLY 


BNE 


10$ 


INC 


FATKLG 


MOV 


R0.R1 


ERRD C 


ERRNO»SFIERR, SFIMSG 



20$ 



23$ 



CKLOOP 

JSP 
BCS 



>>>>>>>>>>>> 



>>>>>>>>>>>> 



JSR 


PCT32RFST 


% 


JSR 


PC.T32RI2 


• 


JSR 


PC.T32RT3 


} 


MOV 


0650OO..T32DLY 


» 


JSR 


PC.SOFINIT 


J 


BCS 


20 J 


» 


DELAY 


250 


• 



*250,(PC)» 



L$DLr,CPO* 



-6CPC) 

. -4 

-22CPC) 

.-20 



MOV 


UNITN.T32DSW 


« 


BIS 


«BIT5.T32Drw 


i 


MOV 


*T32PACKF.T»R4 


\ 


JSR 


PC.WRTCHR 


• 


BCS 


23$ 


i 


INC 


FATFLG 




MOV 


R0.R1 


i 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 


i 



BEGIN SUBTEST 
T4,3: 

TRAP CSBSUB 

SET COMMAND PACKET 

SET np OTHER COMMAND PACKET 

SET UP OTHER COMMAND PACKET 

SET UP DE'.AY COUNTER 

DO INITIALIZE ON CONTROLLER 

BR IF INIT WAS OK 

DELAY ABOUT .25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

BUMP COUNTER 

BR, IF COUNTER NOT DONE 
j ERROR COUNT 

CONTENTS OF TSSR REGISTER 

FATAL ERROR TSSR WAS NOT OK 

TRAP C5ERDF 
.WORD 421 
.WORD SFIERR 
.WORD SFIMSG 

SET UP UNIT (DRIVE) NUMBER 

TURN ON HIGH SPEED TO SAVE TIME 

SUBROUTINE NEEDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR. IF COMMAND ISSUED OK 
j ERROR COUNT 

SAVE CONTENTS OF TSSR 

WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



PC, REWIND 
30* 



{LOOP IF SELECTED 

TRAP 
;CAIL TAPE REWIND COMMAND 
|B3. IF NO PROBLEM 



CSERHRD 
422 
WRTMSG 
SFIMSG 

C$CLP1 



B12 



TEST 
TEST 



2848 
2849 
2«50 
2854 



2855 

£856 
2857 
2858 
2859 
2R60 
2861 
2865 



2866 

2867 
2866 
2869 
2870 
2871 
2872 
2973 
2674 
28 75 
2876 
2677 
2878 



2883 

2664 
2885 
2686 
2687 
2888 
2889 
2893 



2894 

2895 
29% 



HARDWARE TEST 1-8 TEST MACRO M1113 
ERASE ANO OPERATION INCOMPLETE 



Ol-FEQ-84 18t55 



:>EQ 144 



050462 

050466 

0504 70 

050474 

0504 7 % 

0504 76 

050500 

050502 

050504 

050504 

050506 

050512 

050514 

050520 

050522 

050524 

050530 

050530 

050532 

050534 

050536 

050540 

050540 

050542 

050550 

050554 

050560 

050564 

050570 

050574 

050600 

050602 

050604 

050610 

050612 

050616 

050616 

050620 

050622 

050624 

050626 

050626 

050630 

050634 

050636 

050642 

050644 

050646 

050652 

050652 

050654 

050656 

050660 

050662 

050662 

050664 

Qt>Qb7Q 



016501 
010004 
005237 002214- 

104456 
00064 7 
051520' 

011736' 

104406 

013701 051170' 

010102 

052702 000002 

020102 

00i406 

005237 002214- 



104456 
000650 
051336' 
015364' 

104406 
012737 
012704 
010337 
010465 
OC-475? 
016501 
012702 
020102 
001757 
032701 
001006 
005237 

104456 
000651 
052356' 

011736' 

104406 
013701 
010102 
052702 
020102 
0-01406 
005237 

104456 
0O0652 
051431' 
015364' 

104406 
012703 
01373? 



140411 

051270' 

C51276' 

oooooo 

016140' 

000002 

000200 



000004 
002214 



051170 
000001 



002214' 



30$ i 



MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



401: 
051270' 651} 



CKLOOP 



805 J 



240$i 



TSSR(R5),R1 

R0.R4 

FATFLG 

ERRNO^srwN.PKTSSR 



jGET TSSR CONTENTS 
j GET PACKET ADDRESS 

j ERROR COUNT 
jREWINO NOT ACCEPTED 



MOV 


1?2BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIV1.R2 


CMP 


R1.R2 


BEQ 


401 


INC 


FATFLG 


ERRHRD 


ERRN0,T32B0T, EXPREC 



lLOOP IF SELECTED 

|PICK UP XSTO 

jSCT UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

|BR, IF EQUAL (OK) 

j ERROR CQLW 
:TAPE NOT AT BOT AFTER 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
423 
T32RWN 
PKTSSR 

C$CLP1 



REWIND 




TRAP 


CIERHRD 


.W03D 


424 


.WORD 


T3260T 


.WORD 


EXPREC 



lLOOP IF SELECTED 

TRAP UCLPl 



051300' 
QQ3U6' 0512'"» 



MOV 


♦140411, T32PK3 


jERASE 0MTA,CVC-1,ACK COMMANO 




MOV 


♦T32PK3»R4 


jSET UP R4 WITH PACKET ADORESS 




MOV 


R3.T32SZ 


i SET UP RECORD SIZE IN PACKET 




MOV 


R4,TSD6(R5) 


j ISSUE COMMAND 




JSR 


PC.UAITF 


lUAXT FOR SSR TO SET 




HOV 


TSSR(R5),R1 


iGET TSSR CONTENTS 




MOV 


♦SSR.R2 


iSET UP EXPECTED 




CMP 


R1.R2 


,ARE TMEt EQUAL 




B*Q 


65$ 


»BR. IF OK 




BIT 


♦eiT2,Rl 


jCHECK FO^ TAP STATUS ALERT 




BNE 


80$ 


jBR, IF TAPE S UUS ALERT SET 




INC 


FATFLG 


,ERRCf rOlJNT 




ERRHRD 


ERRN0.T32WDC, PKTSSR 


j TSSR INCORREC ArTER WRITE DATA 






TRAP 


CtERHRD 






.WORD 


425 






.WORD 


T32WDC 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


r3?BFR»6,Rl 


jPICK UP XSTO 




MOV 


R1.R2 


iSET UP EXPECTED 




BIS 


♦BIT0.R2 


iSET EOT BIT IN EXPECTED 




CMk 


RI.R2 


»DOES EXP • REC'D 




BEQ 


2401 


jBR, IF EQUAL I OK) 




INC 


FATFLG 


, ERROR COUNT 




ERRHRD 


ERRNO.T32E0T.EXPREC 


iTAPE NOT AT tOT AFTER ERASE COMMANCS 






TRAP 


CtERHRD 






.WORO 


426 






.WORD 


lS^EOT 






.WORO 


EXPREC 


CKl OOP 




lLOOP IF SELECTED 








TRAP 


c*clm: 


MOv 


♦T32CMO.R3 


[STARTING RECORD SI/E 




MOV 


FREEJ32RB 


I STARTING READ BUFFER ADDRESS 





m\ v » M Mfj| R Ai?o^»egTe 



Clc> 



2897 0506/6 


011337 


051270' 


2898 050702 


012">4 


051270' 


2899 050706 


012700 


177777 


2900 050712 


004737 


017314' 


2901 050716 


012737 


000144 051276 


2902 050724 


010465 


OOOOOO 


2903 050730 


012737 


000062 051334 


2904 050736 


0O4737 


016140' 


2905 050742 


016501 


000002 


2906 050746 


012702 


100214 


2907 050752 


020102 




2908 050754 


001425 




2909 050756 






050756 


012727 


0C0250 


050762 


oooooo 




050764 


013727 


002116* 


050770 


oooooo 




050772 


005367 


177772 


050776 


001375 




051000 


005367 


177756 


0510O4 


001367 




2910 051006 


005337 


051334' 


2911 051012 


001351 




2912 051014 


005237 


002214' 


2916 051020 






051020 


104456 




051022 


000653 




051024 


052275' 




051026 


011736' 




2917 051030 






051030 


1O4406 




2918 051032 


013701 


051176' 


2919 051036 


010102 




2920 051040 


052702 


000100 


2921 051044 


020102 




2922 051046 


001406 




2923 051050 


005237 


002214' 


2927 051054 






051054 


104456 




051056 


0O0654 




051060 


05242 1 " 




051062 


015364' 




2926 051064 






051064 


104406 




2929 051066 


005 723 




2930 051070 


021327 


177777 


2931 051074 


001300 




2932 051076 






051076 






051076 


104403 




2933 051100 


023727 


002214' 000017 


2934 051106 


103402 




2935 051110 


004737 


017074' 


2936 051114 






2937 






2938 






2939 







1113 



2651} 



2703; 



2001: 



290$; 



999 f; 

# 



01 -FEB -84 


18 j 55 




SEQ 145 


MOV 


(R3),T32PK3 


iREAD OATA.ACK COMMAND 




MOV 


0T32PK3.R4 


»SET UP R4 WITH PACKET ADDRESS 




MOV 


♦177777.RO 


I SET PATTERN IN CORRECT REGISTER 


JSR 


PC, FII.l MEM 


iFILL MEMORY WITH ALL ONES 




MOV 


0100. , T32SZ 


• SET UP RECORD SIZE IN PACKET 




MOV 


R4.TSDBCR5) 


j ISSUE COMMANO 




MOV 


050..T32DLY 


iSET UP DELAY COUNTER 




JSR 


PC.WAITF 


(WAIT FC~ SSR TO f£T 




MOV 


TSSR(R5).R1 


iGET TSSR CONTENTS 




MOV 


♦SSR!SC!BIT2|BIT3,R2 


iSET UP EXPECTED 




CMP 


R1.R2 


jARE THEY EQUAL 




BEO 


280$ 


iBR. IF OK 




DELAY 


250 


iDELAY FOR SSR TO BE SET 








MOV 


0250. (PC)* 






.UORD 









MUV 


L IDLY, (PC)* 






.UORD 









DEC 


-6(PC) 






BNE 


. -4 






DEC 


-2PCPC) 






BNE 


.-20 


DEC 


T32DLY 


iCOUNT DELAY ROUTINE DOWN 




BNE 


2701 


|BR» IF DELAY HAS NO 1 ENOED 




INC 


FATFLG 


i ERROR COUNT 




ERRHRD 


ERRN0.T32ECF.PKTSSR 


|T5SR INCORRECT AFTER READ DATA 








TRAP 


CIERHPD 






.WORD 


427 






.WORD 


.'32CCF 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CICLPl 


MOV 


T32BFR»14,R1 


iPICK UP XST3 




MOV 


R1.R2 


tSET UP EXPECTED 




BIS 


*Gir6,R2 


>SET OPI BIT IN EXPF.CTED 




CMP 


R1.R2 


i IS OPI BIT SET 




BEQ 


290* 


jBR, IF BIT IS SET 




INC 


FATFLG 


ifcRROR COUNT 




ERRHRD 


ERRN0.T32QPI.EXPREC 


lOPl BIT NOT SET 








TRAP 


C&ERHR0 






.WORD 


428 






.WORD 


T320PI 






.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CJCLP1 


1ST 


(R3)» 


»BUMP COMMANO POINTER 




CMP 


(R3), 0177777 


|AT ENO OF TABLE YET 




BNE 


265$ 


iBR, KEEP TRYING COMMANDS 




ENDSUC 




!>>>»*>>>>*>> ENO SUBTEST >*>** 

L 10056 j 


>>>■*>>•» 






TRAP 


C*6SUG 


CMP 


FATFLG.015, 


iIS ERROR COUNT AT 25 




BLO 


9991 


iBR. IF LESS THAN 25 




JSR 


PCtCKQRQP 


iTRY TO DROP THE UNIT 





III? V ^^0 T 6^Riv?O^Wc8^gT^ U5 01-FEB-84 16:55 



D12 



SEQ 146 



2940 




2941 051114 


004737 016350 


2942 051120 


103002 


2943 051122 


000137 046630 


2944 051126 




051126 


104432 


051130 


001534 


2945 




2*46 




2947 




2940 




2950 051132 




2952 051140 




2953 051140 


100004 


2954 051142 


051150' 


2955 051144 


oooooo 


2956 051146 


000012 


2957 051150 




2958 051150 


051162' 


2959 051152 


oooooo 


29*0 051154 


000024 


2961 051156 


OOOOOO 


2962 051160 


OOOOOO 


2963 051162 




2964 




2965 




2966 




2968 0512*4 




2970 051250 




2971 051250 


100006 


2972 051252 


OOOOOO 


2973 051254 


OOOOOO 


2974 051256 


000006 


2975 




2977 051260 




2979 051270 




2980 051270 


100005 


2981 051272 




2982 051272 


003116' 


2983 051274 


OOOOOO 


2984 051276 


OOOOOO 


298^ 




2986 




2987 




2988 




2989 




2990 




2991 




2992 




2993 




2994 051300 




2995 051300 


140410 


2996 051302 


141410 


2997 051304 


140401 


2998 051306 


141001 


2999 051310 


161401 


3000 051312 


161001 



163$' 



I ♦ 



JSR 


PC.TSTLOOP 


BCC 


1634 


JMP 


T32L00P 


EXIT 


TST 



jLOCAL STORAGE FOR T^IS TEST 



.BLKB 


10-<.-T 


T32PACKET: 




.WORD 


100004 


.WORD 


T32DATA 


.WORD 





.WORD 


10. 


T32DATA: 




.UORD 


T32BFR 


.WORD 





.WORD 


20. 


.WORD 





T320SWJ .WORD 





T32BFR: .BLKW 


25. 



I WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10- <. -TSV267> 



T32PK2: 








.WORD 


100006 




.WORD 







.WORD 







.UORD 


6. 




.BLKB 


10-<. -TSV2£7> 


T32PK3j 








.WORD 


100003 


T32RB: 






T32W8t 


.WORD 


TREE 




.WORD 





T32SZ: 


.WORD 
.EVEN 






I 
I 
I 

■ EVE!.' 
, TAPE MOTION PACKET COMMAND VALUES 



T32CMD? 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



140410 
141410 
140401 
141001 
161401 
161001 



lOO WE NEED TO ITERATE TEST 

I BR, IF NO LOOP REQUIRED 

lEXECUTE AGAIN 

l ALL DONE THIS TEST 

TRAP 
.WORD 



CIEXIT 
L 10053- 



iCOMMANO PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH 

I ADDRESS OF CHARACTERISTICS OLOCK 

jSTARTING VALUE OT BLOCK SIZE 

jCHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

i SELECT DRIVE 
; MESSAGE BUFFER 



ACK 



jWRITE SUB SYS MEM COMMAND, 41*0 ACK 
j ADDRESS OF SELECT BLOCK DATA 

iSIZE OF DATA PACKET 



l REREAD COMMANO, AND ACK 
I ADDRESS OF WRITE BUFFER 
I SIZE OF BUfFER (EXTENT) 



j SPACE RECORDS REVERSE 

I SKIP TAPE MARKS REVERSE 

jREAD REVERSE 

jREREAD PREVIOUS COPP-0) 

i REREAD NEXT (OPP-1) 

» REREAD PREVIOUS (OPP»l) 



E12 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 4: ERASE AND OPERATION INCOMPLETE 



Ol-FEB-84 18i55 



SEQ 147 



3001 

3002 

3003 

3004 

3005 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 



051314 
051316 
051320 
051322 
051324 
051326 



051330 
051332 
051334 



051336 
051431 
051520 
051567 
051636 
051703 
051756 
052054 
052131 
052206 
052275 

052356 
052423 
052460 



052520 
052520 
052524 
052530 
052534 
052540 
052542 
052546 
052552 
052554 
052560 
052562 
052566 
052572 
052600 
052602 



141401 
140001 
141410 
141010 
141005 
177777 



000000 
OOOOOO 
000000 



124 
124 
122 
124 
124 
:.24 
122 
124 
124 
102 
105 

124 
117 
105 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 



141 
141 
145 
123 
123 
123 
105 
123 
123 
117 
122 

123 
120 
J.G2 



160 
160 
167 
123 
123 
102 
101 
123 
123 
124 
101 

123 
111 

141 



051140* 

100004 

051150' 

0O0012 

051162' 

000024 

OOOOOO 
000030 
177777 051162 1 

OOOOOO 



T32CNT 
T32CNU 
T32DLY 



.WORD 
.WORD 
♦ WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 



141401 
140001 
141410 
141010 
141005 
177777 









jREREAD NEXT COPP-0) 

I READ NEXT 

I SKIP TAPE MARKS REVERSE 

j SKIP RECORDS FORWARD 

j WRITE DATA RETRY 

lEND OF DATA 



i TAPE TIMER COUNTER STORAGE AREA 
I TAPE TIMER COUNTER STORAGE AREA 
t DELAY COUNTER 



j LOCAL TEXT 

l - 



MESSAGES FOR TEST 



T32B0T 
T32E0T 
T32RUN 
T32AM3 
T32ERA 
T328A: 
T32RIB 
T32SCF 
T32TSA 
T32B0E 
T32ECF 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



T32WDC: .ASCIZ 
T320PI: .ASCIZ 
TST32ID: 

.EVEN 



'Tap* Not At BOT After REWINO Command (BOT Not Set In XSTO)' 

'Tap* Status Alert During Eras* To EOT, But EOT Not Set' 

•RaNlnd (POSITION) Command Not Accepted 4 

•TSSR Init. Failed After REREAD COMMANO' 

•TSSR Not Correct After ERASE Command' 

'TSBA Not Correct After REREAD DATA Command' 

'READ REVERSE. After ERASE From BOT. Failed To Set RIB In XST3 

•TSSR Not Correct After S^ACE RECORDS Command' 

•TSSR Not Correct After READ REVERSE Into BOT' 

BOT (XSTO) Still Set After Erase From Tape"s BOT Marker' 

'ERASE Failed To Clear Tape (Erase) T«pe Properly' 

'TSSR Not Correct After ERA5E Command' 

'OPI Bit (XST3) Failed To Set' 

.ASCIZ 'Eraae And Operation Incomplete' 



ROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T32REST? 



64$: 



SAVREG 

MOV *T32PACKET,R1 

MOV $100004, (Rl)» 

MOV 0T32DATA.(R1)* 

CLR (Pl)> 

MOV ai0,,(Rl)* 

MOV 0T32BFR,(Rl)f 

CLR (Rl). 

MOV #20., CRD* 

CLR CR1)# 

MOV #0,(R1) 

MOV #24., R2 

MOV #177777, T32BFR(R2) 

TST -(R2) 

CMP #0.R2 



j SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK, 

i ADDRESS OF CHARAISTICS DATA BLOCK 

, EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

I ADDRESS OF MtSSAGE BUFFER 

i LENGTH OF MESSAGE BUFFER 

j SELECT DRIVE ZERO 

I NUMBER OF LOCATIONS TO BE CLEARED 

i ALL ONES TO MES3AGE BUFFER 

jNFXT LOCATION 

j AT END OF LOOP YET 



F12 



TEST 1 - HARDWARF TEST 1-8 TEST MACRO M1113 
TEST 4: ERASE AND OPERATION .INCOMPLETE 



01-FEB-84 18{55 



SEQ 148 



3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 



3080 
3081 
3082 
3083 
3084 
3085 
3006 
3087 
3080 
3089 
3090 
3091 
3092 
3093 
3094 
3095 
3096 
3097 
3C98 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
310b 
3107 
3108 
3109 
3110 
3111 
3112 



052606 
052610 



052612 
052612 
052636 
052622 
052626 
052630 
052632 
052636 
052640 
052642 
052642 
052646 
052652 
052654 
052656 
052660 
052662 
052664 
052664 
052664 



001371 
000207 



012701 051250' 

012721 100006 

005021 

005021 

012721 000006 

005021 

000207 



012701 051270' 

005021 

005021 

005021 

005011 

000207 



104401 



T32RT2; 



T32RT3s 



BNE 


64* 


RTS 


PC 


SAVREG 




MOV 


OT32PK2.R1 


MOV 


0100006, CR1)» 


CLR 


CRD* 


CLR 


CRD* 


MOV 


06. ,CR1)* 


CLR 


(Rl)* 


RTS 


PC 


SAVREG 




MOV 


*T32PK3,R1 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 


ENDTST 





j KEEP GOING UNTIL OONE 
j RETURN 



I SAVE THE REGISTERS 

I START OF THE PACKET 

l WRITE SUBSYSTEM MEM, UITH ACK, 

I ADDRESS OF DATA BLOCK 

» EXTENDED AODRESS 

j SIZE OF DATA BLOCK IN BYTES 

j RETURN 

j SAVE REGISTERS 

(SET UP POINTER ADDRESS 

I COMMAND SPACE 

I ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

i SIZE OF DATA TRANSFER BLOCK 



j RETURN 



L10053: 



TRAP 



CSETST 



.SBTTL TEST 5: DATA PARITY TEST 



TEST 5 -- Data Parity Test 

This test verifies that the datn parity circuitry in both the controller and the 
transport Is operating properly by Forcing data records with wrong parity to be 
written onto tape ar\<i checking tne results obtained when the data is ree»d* The 
following test sequence is performed} 




mw ■ i«n v W !. »J-» • * I W# I I «r iny 19 «nOVi«U| ■ V 1 B» «J * 9QVi.VU vio in« our 1 cr 

Control field In the extended characteristics data word supplied by a 
Write Characteristics command. CThe module must be in Extended mode, 
so if it »s not already, a Urite Subsystem Memory command is issued to 
change the logical sense of the Extended Featurea switch.) 



2. 



The Urite Subsystem Memory command 
Parity control flip-flop. 



is used to set the Force Wrong 



3. The tape is rewound. 

4. A Write Data command is 
O's, It is verified 



issued tc write a data record containing all 
that this command results in Recoverable Error 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 5; DATA PARITY TEST 



01-FEB-84 18555 



G12 



SEQ 149 



3113 
3114 
3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3145 
3144 
3145 

3146 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 



3160 

3161 
31o2 
3163 
3164 
3165 
3166 
3167 
3168 
3169 



l 



052666 
052666 
052666 
052674 
052700 
052704 
052712 



052716 

052716 
052716 
052716 
052720 
052720 
052722 
052726 
052730 
052734 
052734 
052740 
052744 
052750 
052754 



012737 
012700 
004 737 
012737 
005037 



104402 

104421 
032700 
001002 
000137 

005037 
00503 7 
005037 
004 737 
004737 



006225' 

055505' 

016402* 

000005 

054556' 



002172 



002210' 



000100 

054342' 

002216' 
054556' 
054560' 
055522' 
055614' 



5. 



terminat ion 
bit is set. 

The previous 
(octal). 



(T04) and that the Uncorrectable Data Error (UNO error 
step is repeated for each data value 2 through 377 



6. The *"»*>« is rewound, 

V . A Read Next command is issued to r^eKi a record with i-'aulty parity. It 
Is verified that this command results in Recoverable Error termination 
(TC-4) and that both the Uncorrectable Data (UNO and Read Bus Parity 
CRBP) error bits are set. It is also verif*ed that the data actually 
read is correct. 

8, A Read Reverse command with 0PP*1 Is issued to read, In reverse, the 



same record with Faulty 
verified that this command 
(TC-4) and that both the 
(RBP) error bits are sec. 
read is correct. 



parity as read in the previous step. It is 
results in Recoverable Error termination 
Uncorrectable Data (UNO and Read Bus Parity 
It is also verified that the data actually 



9, Tape is spaced forward one record. 

10. The previous three steps are executed for each test record originally 
written, 

11. The controller !s initialized to clear the special test conditions 
previously set up. 



BGNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



♦EPRT2.EPRTSW 

*TST33ID,R0 

PC.7STSETUP 

#5,L0OPCNT 

T33CNT 



T5:: 
t SECONDARY ERROR MESSAGE 
iMSCII MESSAGE TO IDENTIFY 
j DO INITIAL TEST SETUP 
jPERFORM 5 ITERATIONS 
j CLEAR TAPE RECORD COUNTER 



TEST 



T33L00P: 



5*: 



BGNSU6 



RFLAGS RO 

BIT 06IT6.RO 

BNE 5$ 

JMP 220$ 

CLR INTRECV 

CLR T33CNT 

CLR T33CNU 

JSR PC.T33REST 

JSR PCT33RT2 



}>>>>>>>>>>>> BEGIN SUBTEST >> >>>* >*•> >>•> 

T5.lt 

TRAP C*8SUB 

iCKECK FOR THE ISR FLAG SET 

TRAP C*RFLA 

I IF NOT SET WE WILL SKIP THE TEST 
{BR, IF SET 
I SKIP OVER TEST UNTIL BOARD FIXED 

l INTERRUPT INDICATOR 

I TIMER FOR WRITE DATA SPACING 

j TIMER FOR WRI T F DATA RETRY SPACING 

j SET COMMAND PACKET 

j SET UP OTHER COMMAND PACKET 



H12 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 5; DATA PARITY TEST 



01 -FEB -84 18:55 



SEQ 150 



3170 
3171 
3172 
3173 
3174 



3175 
3176 
3177 
3181 
3182 



3183 
3184 
3165 
3186 
3187 
3188 
3192 
3193 



3194 

3195 
3196 
3197 
3198 
3199 
3203 



3204 

3205 
3206 
3207 
L208 
3209 
3210 
3214 



052760 
052764 
052772 
052776 
053000 
0530C0 
053004 
053006 
053012 
053014 
053020 
053C22 
053026 
053030 
053034 
053036 
053042 
053044 
053044 
053046 
053050 
053052 
053054 

C53062 
053066 
053072 
053074 
053100 
053102 
053102 
053104 
053106 
053110 
053112 
053112 
053114 
053120 
053122 
053126 
053130 
053134 
053134 
053136 
053140 
053142 
053144 
053144 
053146 
053152 
053154 
053160 
053162 
053164 
053170 
053170 
053172 



004737 055656' 

012737 176750 054562' 

004737 015664' 10$: 

103426 



012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
005237 
010001 



012704 
004737 
103407 
005237 
010001 

104456 
000766 
005046' 

011724' 

104406 
004737 
103411 
016501 
010004 
005237 

104456 
00076 7 
055260* 
011736' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
000770 



000250 

002116' 

177772 

177756 

054562' 

002214' 



JSR 
MOV 
JSR 
BCS 
DELAY 



104455 

000765 

003642' 

011724' 

013737 002174' 054420' 20$: 



05440C 
010552 

002214 



23$: 



010704' 

000002 

002214' 



30$: 



DEC 
BNE 
INC 
mqv 
ERRDF 



MOV 

MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



054430 
000002 

002214 



PC.T33RT3 

065000. .T33DLY 

PC.SOFINIT 

20$ 

250 



T33DLY 

10$ 

FATFLG 

R0,R1 

ERRNO.SFIERR, SFIMSG 



UNITN.T33DSW 

*T33PACKET,R4 

PC.WRTCHR 

23$ 

FATFLG 

R0,R1 

ERRNO.WRTMSG, SFIMSG 



PC, REWIND 

30$ 

TSSR(R5),R1 

R0,R4 

FATFLG 

ERRN0.T33RWN.PKTSSR 



MOV 


T33BFR*6,R1 


MOV 


R1.R2 


RIS 


4BIT1.R2 


CMP 


RI.R2 


BEQ 


40$ 


INC 


FATLG 


ERRHRD 


ERRN0.T33B0T.EXPREC 



I SET UP OTHER COMMAND PACKET 

»SET UP DELAY COUNTER 

jDO INITIALIZE ON CONTROLLER 

»BR IF INIT WAS OK 

I DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

I BUMP COUNTER 

l BR, IF COUNTER NOT DONE 
; ERROR COUNT 

^CONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 

jSET UP UNIT NUM8ER 

» SUBROUTINE NEEDS PACKET ADDRESS 
i ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAS ISSUED OK 

j ERROR COUNT 
I SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 
;LOOP IF SELECTED 



0250,CPC)> 



L$DLY,CPC)f 



-6CPC) 

. -4 

-22CPC) 

.-20 



C$ERDF 
501 

SFIERR 
SFIMSG 



C$ERHRD 
502 

WRTMSG 
SFIMSG 



J 

(CALL TAPE REWINO COMMAND 
j BR, IF NO PROBLEM 
iGET TSSR CONTENTS 
{GET PACKET ADDRESS 

I ERROR COUNT 
j REWIND NOT ACCEPTED 



TRAP C$CLP1 



TRAP 
.WORD 
, WORD 
.WORD 



tLOOP IF SELECTED 

iPICK UP XSTO 

j SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

i DOES EXP - REC'D 

I BR. IF EQUAL COK) 

t ERROR COUNT 
iTAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 



C$ERHRD 
503 

T33RWN 
PKTSSR 



TRAP C$CLP1 



CSERHRD 
504 



112 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 5: DATA PARITY TEST 



3215 

3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3230 



3231 

3232 
3233 
3234 
3235 
3236 
3237 
3230 
3239 
3240 
3244 
3245 



3246 

3247 
3248 
3249 
3250 
3251 
3252 
3253 
3254 
3255 
3259 



3260 

3261 
3262 



053174 
053176 
053200 
053200 

053202 

053206 

053210 

053216 

053224 

053230 

053234 

053240 

053242 

053244 

053250 

053250 

053252 

053254 

053256 

053260 

053260 

053262 

053266 

053270 

053276 

053304 

053312 

053316 

053322 

053324 

053330 

053332 

053332 

053334 

053336 

053340 

053342 

053342 

C53344 

053344 

053352 

053360 

053364 

053370 

053374 

053376 

053400 

053404 

053404 

053406 

053410 

053412 

053414 

053414 

053416 

053422 



055165' 
015364' 

104406 

005737 
001025 
112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000771 

055101' 
011736' 

104406 
005737 
001426 
013737 
042737 
052737 
012704 
004737 
103407 
005237 
010001 

104456 
000772 
005046' 

011724' 

104406 

112737 
112737 
012704 
010465 
004737 
103407 
010001 
005237 

104456 
000773 
055101' 

0.11736' 

104406 
012703 
013737 



002220' 

000200 

000010 

05451C 

000000 

016226' 



002214' 



40$ i 



42$: 



01-FEB-84 18i55 



CKLOOP 



054541 
054540 



002222* 

002174 1 

000020 

000010 

054400* 

010552' 

002214 



0O0100 
000011 
054510' 
OOOOOO 

016226' 



002214' 



TST 


EXTFEA 


BNE 


55$ 


MOVB 


O20O.T33BS1 


MOVB 


01O,T£38SO 


MOV 


*T33PK2,R4 


MOV 


R4,TSDB(R5) 


JSR 


PCCHKTSSR 


BCS 


50$ 


MOV 


R0,R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T33SSR, PKTSSR 



50$ i 
55$: 



CKLOOP 



054420* 
054420' 
054420' 



TST 


UEN8SW 


BEQ 


70$ 


MOV 


UNITN.T33DSW 


BIC 


*BIT4,T33DSW 


BIS 


*BIT3,T33DSW 


MOV 


tfT33PACKET t R4 


JSR 


PC.WRTCHR 


BCS 


60$ 


INC 


FATFLG 


MOV 


R0,R1 


ERRHRD 


ERRNO,WRTMSG,SFIMSG 



054541 
054540 



60$: 
70$: 



CKLCOP 



MOVB 


*100,T33BS1 


MOV'S 


*11,T33BS0 


MOV 


*T33PK2,R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


80$ 


MOV 


R0.R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T33SSR 



80$ 



000026 
003116 



054532 



CKLOOP 

MOV 
MOV 



.PKTSSR 



I LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



SEQ 151 



T33BOT 
EXPREC 

C$CLP1 



l CHECK FOR EXTENDED FEATURES SW SWITCH 

j BR IF SWITCH IS ON 

; WRITE MISCELLANEOUS CONT/READ STATUS 

jFUNC. SEL. BIT (TURN ON EXTFCA SWITCH) 

I WRITE SUBSYS MEM PACKET 

j ISSUE COMMAND 

j WAIT FOR SSR 

i BR, IF NO ERROR 

I ERROR, SAVE TSSR 

j ERROR COUNT 
jTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
. WORD SOS 



TRAP 
.WORD 
.WORD 
.WORD 



j LOOP IF SELECTED 

TRAP 
j CHECK FOR BUFFER ENABLED 
j BR, IF BUFFERING NOT ENABLED 
l SET UP UNIT NUMBER 
» BUFFER DISABLE 

iBUFFER DISABLE SENO 01 TO BITS 
i SUBROUTINE NEEDS PACKET ADDRES 
j ISSUE WRITE CHARACTERISTICS 



C$ERHRD 
505 
T33SSR 
PKTSSR 

C$CLP1 



i SUBROUTINE NEEDS PACKET ADD) 
j ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMANO I3SUE0 OK 
iPRRHQ rniiNT 



4 AND 3 



; ERROR CO'JNT 
I SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTIC 

j LOOP IF SELECTED 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERHflD 
506 

WRTMSG 
SFIMSG 



TRAP C$CLP1 



l WRITE MISCELLANEOUS CONT/^EAD STATUS 

jFUNC. SEL. BIT (SET WRONG PARITY) 

j WRITE SUBSYS MEM PACKET 

; ISSUE COMMANO 

;WAIT FOR SSR 

I BR, IF NO ERROR 

l ERROR, SAVE TSSR 

j ERROR COUNT 
j TSSR NOT CORRECT AFTER 



jLOOP IF SELECTED 



022. ,R3 
FREE , T33WB 



WRT. 

TRAP 

.WORD 

.WORD 

.WORD 

TRAP 



MISCELLANEOUS 
C$ERHRD 
507 

T33SSR 
PKTSSR 



i NUMBER OF RECORDS TO BE WRITTEN 

j STARTING WRITE BUFFER ADDRESS 



C$CLP1 



J12 



TEST X - 


HARDWARE TEST 


1-8 TEST MACRO 


TEST 5j 


DATA PARITY TEST 


3263 


053430 


005037 


054560' 


3264 


053434 


012737 


140005 054530 


3265 


053442 


012704 


054530* 


3266 


053446 


012737 


000024 054536 


3267 


053454 


013777 


054560' 127434 


3268 


053462 


005237 


054560' 


3269 


053466 


010465 


000000 


3270 


053472 


004737 


016140' 


3271 


053476 


016501 


000002 


3272 


053502 


012702 


100210 


3273 


053506 


020102 




3274 


053510 


001406 




3275 


053512 


005237 


002214* 


3279 


053516 








053516 


104456 






053520 


000774 






053522 


054642' 






053524 


011736' 




3280 


053526 








053526 


104406 




3281 


053530 


013701 


054432' 


3282 


053534 


010102 




3283 


053536 


052702 


000002 


3284 


053542 


020102 




3285 


053544 


001406 




3286 


053546 


005237 


002214' 


3290 


053552 








053552 


104456 






053554 


000775 






053556 


054 722' 






053560 


015364' 




3291 


053562 








053562 


104406 




3292 


053564 


005303 




3293 


053566 


001322 




3294 


053570 


004737 


010704' 


3295 


053574 


103411 




3296 


053576 


016501 


000002 


3297 


053602 


010004 




3298 


053604 


005237 


002214' 


3302 


053610 








053610 


104456 






053612 


000776 






053614 


055260' 






0L,3616 


011736' 




3303 


053620 








053620 


104406 




3304 


053622 


013701 


054430' 


3305 


053626 


010102 




3306 


053630 


052702 


000002 


3307 


053634 


020102 




3308 


053636 


001406 




3309 


053640 


005237 


002214' 


3313 


053644 








053644 


104456 






053646 


000777 






053650 


055)65' 





M1113 



120$; 



01-FEB-84 


18:55 






SEQ 152 


CLR 


T33CNU 




iMAKE SURE ITS CLEAR 




MOV 


0140005 ,T33PK3 


I WRITE DATA,ACK,CVC-1 COMMAND 




MOV 


0T33PK3.R4 




j SET UP R4 WITH PACKET ADDRESS 




MOV 


020..T33SZ 




i SET UP RECORD SIZE IN PACKET 




MOV 


T33CNU.8FREE 




j MEMORY FILLED WITH DATA IN RECORD 


INC 


T33CNU 




i READY FOR NEXT RECORD 




MOV 


R4»TSDBCR5) 




, ISSUE COMMAND 




JSR 


PCWAITF 




tWAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




*GET TSSR CONTENTS 




MOV 


#SSR!SC!BIT3, 


R2 


iSET UP EXPECTED 




CMP 


R1,R2 




j ARE THEY EQUAL 




BEQ 


120$ 




jBR, IF OK 




INC 


FATFLG 




{ERROR COUNT 




ERRHRO 


ERRN0.T33WPW, 


PKTSSR 


{TSSR INCORRECT AFTER WRITE DATA 








TRAP 


CSERHRD 








.WORD 


508 








.WORD 


T33WPW 








.WORD 


PKTSSR 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T33BFR*10.R1 




{PICK UP XST1 




MOV 


R1.R2 




j SET UP EXPECTED 




BIS 


0BIT1.R2 




j SET UNC BIT IN EXPECTED 




CMP 


R1.R2 




{DOES EXP « REC'D 




BEQ 


130$ 




{BR, IF EQUAL COK) 




INC 


FATFLG 




; ERROR COUNT 




ERRHRD 


ERRN0.T33UNC 


EXPREC 


i TAPE NOT AT BOT AFTER REWIND 

TRAP 


CiERHRD 



130$: CKLOOP 



DEC 


R3 


BNE 


110$ 


JSR 


PC, REWIND 


BCS 


140$ 


MOV 


'SSRCR5),R1 


MOV 


R0»R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T33RWN, PKTSSR 



.WORD 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 

j DEC RECORD COUNTER 

>3R, IF MORE RECORDS TO WRITE 

,CALL TAPE REWIND COMMAND 

{BR, IF NO PROBLEM 

{GET TSSR CONTENTS 

I GET PACKET ADDRESS 
j ERROR COUNT 

{REWIND NOT ACCEPTED 



140$: 



509 

T33UNC 

EXPREC 

C$CLP1 







TRAP 


C$ERHRD 






.WORD 


510 






.WORD 


T33RWN 






.WORD 


PKTSSR 


CKLOOP 




j LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T33BFR»6,R1 


{PICK UP XSTO 




MOV 


R1.R2 


i SET UP EXPECTED 




BIS 


48IT1,R2 


j SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - REC'D 




BEQ 


i u :o$ 


{BR, IF EQUAL (OK) 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0.T33B0T, EXPREC 


{TAPE NOT AT BOT AFTER REWIND 








TRAP 


CiERHRD 






.WORD 


511 






.WORD 


T33B0T 



K12 



TEST 1 - HARDWARE TEST 1-6 TEST MACRO K1113 
TEST 5: DATA PARITY TEST 



Ol-FEB-84 18:55 



3314 

3315 

3316 
3317 
3316 
3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3331 



3332 

3333 
3334 
3335 
3336 

3337 
3330 
3342 



3343 

3344 
3345 
3346 
3347 
3348 
3349 
3353 



3354 

3355 
3356 
3357 
3358 
3359 
3363 



053652 

053654 

053654 

053656 

053662 

055666 

053674 

053702 

053706 

053V 14 

053720 

053724 

053730 

053734 

053736 

053740 

053744 

053744 

053746 

053750 

053752 

053 754 

053754 

053756 

053762 

053764 

053770 

053772 

053774 

054000 

054000 

054002 

054004 

054006 

054010 

054010 

054012 

054016 

054020 

054024 

054026 

054030 

054034 

054034 

054036 

054040 

054042 

054044 

054044 

054046 

054052 

054056 

054060 

054062 

054066 

054066 

054070 



015364' 

104406 
005037 
012703 
013'37 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005257 

104456 
001000 
055327- 
011736' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001001 
055012' 
015364' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001002 
054564' 

015364' 

104406 
017701 
013702 
020102 
001406 
005237 

1044 5f. 
001003 



150$: CKLOOP 



054560' 

000024 

003116' 054532' 155$: 

140001 054530' 

054530' 

000024 054536' 

000000 

016140* 

000002 

100210 



002214 



CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



160$: CKLOOP 



054432 1 
000002 

002214 



170$; C'LOOP 



054432' 
000400 

002214' 



127044 
054560 



002214 



180$: CKLOOP 

MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



T33CNU 

020., R3 

FREE,T33RB 

0140001, T33PK3 

0T33PK3.R4 

#20.,T33SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

0SSR!SC!BIT3,R2 

R1.R2 

160$ 

FATFLG 

ERRN0.T33WDC.PKTSSR 



MOV 


T33BFR*10,R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


RI.R2 


BEQ 


170$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T33UND, EXPREC 



MOV 


T33BFRflO,Rl 


MOV 


R1.R2 


BIS 


08IT8.R2 


CMP 


R1.R2 


BEQ 


180$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T33RBP,F_XPREC 



BFREE.R1 

T33CNU,R2 

R1.R2 

182$ 

FATFLG 

ERRNO.T33DTA, EXPREC 



lLOOP IF SELECTED 



SEQ 153 



.WORD EXPREC 



TRAP 
RECORD 



I CLEAR DATA VALUE IN 

I RECORD SIZE 

{STARTING WRITE BUFFER ADDRESS 

{READ DATA.CVC-l.ACK COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{SET JP RECORD SIZE IN PACKET 

{IS?UE COMMAND 

{WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{BR. IF OK 

{ERROR COUNT 

tTSSR INCORRECT AFTER WRITE DATA 

TRAP 
.WORD 
. WCKD 
.WORD 



C$CLP1 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
512 
T33WDC 
PKTSSR 

C$CLP1 



{PICK UP XST1 

{SET UP EXPECTED 

{SET UNC BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

{ERROR COUNT 
BIT NOT SET AFTER READ CMO. 



{UNC 



{LOOP IF SELECTED 

{PICK UP XST1 

{SET UP EXPECTED 

{SET RBP BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL CCK) 

{ERROR COUNT 
{READ BUS PARITY ERROR 



{LOOP IF SELECTED 

{GET DATA READ 

{Gr;T PATTERN 
{ARE THEY EQUAL 
{BR, IF OK 

;ERROR COUNT 
jDATA NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
513 

T33UN0 
EXPREC 

C$CLP1 



BIT NOT 


SET 


TRAP 


C$ERHRD 


.WORD 


514 


.WORD 


T33RBP 


.WORD 


EXPREC 



TRAP 



C$CLP1 



TRAP 
.WORD 



C1ERHRD 
515 



L12 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 5: DATA PARITi' TEST 



3364 

3365 
3566 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3379 



33f> 

3381 
3382 
3303 
3384 
3385 
3386 
3390 



3391 

3392 
3393 
3394 
3395 
3396 
3397 
3401 



3402 

3403 
3404 
3405 
3406 

3407 
3411 



054072 
054074 
054076 
054076 
054100 
054106 
054114 
054120 
054126 
054132 
054136 
054142 
054146 
054150 
054152 
054156 
054156 
054160 
054162 
054164 
054166 
054166 
0541^0 
054174 
054176 
054202 
054204 
054206 
054212 
05*212 
054214 
054216 
054220 
054222 
054222 
051224 
054230 
054232 
054236 
054240 
054242 
054246 
054246 
054250 
054252 
054254 
054256 
054256 
054260 
054264 
054270 
054272 
054274 
054300 
054300 
054302 
054 304 



055410' 
015364' 

182$ 
x04406 

013737 003116' 054532' 

012737 140401 054530' 195$ 

012704 054530' 

012737 000024 054536' 

010465 000000 

004737 016140' 

016501 000002 

012702 100210 
020102 
001406 

005237 002214' 

104456 
001004 
055327' 
011736' 



FEB -84 


18:55 


SEQ 154 

.WORD T33DTA 
.WORD EXPREC 


CKLOOP 




{LOOP IF SELECTED 

TRAP C$CLP1 


MOV 


FREE,T33WB 


} STARTING WRITE BUFFER ADDRESS 


MOV 


#140401, T33PK3 


} READ REVERSE DATA RETRY ,ACK COMMAND 


MOV 


♦T33PK3.R4 


{SET UP R4 WITH PACKET ADDRESS 


MOV 


#20. ,T33SZ 


{SET UP RECORD SIZE IN PACKET 


MOV 


R4.TSDBCR5) 


j ISSUE COMMAND 


JSR 


PC.WAITF 


i WAIT FOR SSR TO SET 


MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 


MOV 


#SC!SSR!BIT3,R2 


j SET UP EXPECTED 


CMP 


R1,RP 


j ARE THEY EQUAL 


BEQ 


190$ 


jBR, IF OK 


INC 


FATFLG 


{ERROR COUNT 


ERRHRD 


ERRN0,T33WDC,PKTSSR 


jTSSR INCORRECT AFTER WRITE DATA 



104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001005 
055012' 
015364' 

104406 
01J701 
010102 
052702 
020102 
001406 
005237 

104456 
001006 
054564 ' 
015364' 

104406 

017701 

01370P 

C2010 

0014iv 

00523/ 

104456 
001007 
055410 



190$: CKLOOP 



054432 
000002 

002214 



MOV 


T33BFR*10,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


200$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T33UND, EXPREC 



200$: CKLOOP 



054432 
000400 

002214 



MOU 


T33BFR*10,R1 


MOV 


P1.R2 


BIS 


OBITS. R2 


CMP 


R1.R2 


BEQ 


210$ 


INC 


FATFLO 


ERRHRD 


ERRN0,T33RBP, EXPREC 



210$: 



126632 
054560 1 



002214' 



CKLOOP 
MOV 

nov 

CMP 
BEQ 
INC 
ERRHRO 



QFREE.R1 

T33CNU.R2 

R1.R2 

215$ 

FATFLG 

ERRN0.T33DTA, EXPREC 



{LOOP IF SELECTED 

{PICK UP XST1 

iSET UP EXPECTED 

{SET UNC BIT IN EXPECTED 

{DOES EXP - REO'D 

:BR, IF EQUAL (OK) 

{ERROR COUNT 
jTAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 

{PICK UP X3T0 

{SET UP EXPECTED 

;SET RBP BIT IN EXPECTED 

{DOES EXP • REC'D 

jBR, IF EQUAL (OK) 

{ERROR COUNT 
{READ BUS PARITY ERROR 



{LOOP IF SELECTED 

iGFT DATA READ 

{GET PATTERN 
,ARE THEY EQUAL 
{BR, IF OK 

{ERROR COUNT 
{DATA NOT CORRECT 



TRAP 


C$ERHRD 


.WORD 


516 


.WORD 


T33WDC 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



REWINO 




TRAP 


C$ERHRD 


.WORD 


517 


.WORD 


T33UN0 


.WORD 


EXPREC 



TRAP 



C$CLP1 



BIT NOT 


SET 


TRAP 


C$ERHRD 


.WORD 


518 


.WORD 


T33RBP 


.WORD 


EXPREC 



TRAP 



C$CLP1 



TRAP 

.WORD 
»WORD 



C$ERHRD 

519 

T33DTA 



M12 



TEST 1 - 
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DATA PARITY TE 


ST 




054306 


015364 < 




3412 


054310 








054310 


104406 




3413 


054312 


010302 




3414 


054314 


012703 


000001 


3415 


054320 


004737 


010356 


3416 


054324 


010203 




3417 


054326 


005237 


054560 


3418 


054332 


005303 




3419 


054334 


001402 




3420 


054336 


000137 


053666 


3421 


054342 






3422 


054342 
054342 








054342 


104403 




3423 


054344 


023727 


002214 


3424 


054352 


103402 




3425 


054354 


004737 


017074 


3426 


054360 






3427 








3428 








3429 








3430 


054360 


004737 


016350 


3431 


054364 


103002 




3432 


054366 


000137 


052716 


3433 


054372 








054372 


104432 






0S4374 


001304 




34 34 








3435 








3436 








34 37 








34 39 


054376 






3441 


054400 






3442 


054400 


100004 




3443 


054402 


054410' 




3444 


054404 


oooooo 




3445 


054406 


000012 




3446 


054410 






344 7 


054410 


054422' 




3448 


054412 


OOOOOO 




3449 


054*14 


000024 




3450 


054416 


OOOOOO 




3451 


054420 


OOOOOO 




3452 


054422 






3453 








3' 54 








3455 








3457 


054504 






3459 


054510 






3460 


054510 


100006 




3461 


054512 


054540' 




3462 


054514 


OOOOOO 




3463 


054516 


OOOC06 




3464 








3466 


054520 






3468 


054530 







MACRO M1113 01-^8-84 18:55 



215*: CKLOOP 



220$: 



MOV 


R3,R2 


MOV 


01, R3 


JSR 


PC, SPACE 


MOV 


R2.R3 


INC 


T33CNU 


DEC 


R3 


BEQ 


220$ 


JMP 


155$ 



000017 



999$: 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG.M5 

999$ 

PC,CKDR0P 



JSR 


PC.TSTLOOP 


ecc 


230$ 


JMP 


T33L00P 


EXIT 


TST 



230$: 



LOCAL STORAGE FOR THIS TEST 
10-<.-TSV267> 



.BLKB 

T33PACKET: 

.WORD 
.WORD 
.WORD 
.WORD 

T33DATA: 

.WORD 
.WORD 
.WORD 
. W1*D 

T33DSW: . WO <D 

T33BFR; .BLKW 



100004 

To3DATA 



10. 

T33BFR 



20. 





25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10-< -TSV267* 



T33PK2} 



T33PK3: 



.WORD 100006 

.WORD T33BF2 

. WORD 

.WORD 6. 

.BLKB 10-<. -T$V267> 





SEQ 155 


.WORD 


EXPREC 


TRAP 


C$CLP1 



j LOOP IF SELECTED 



{SAVE R3 FOR A MOMENT 

i SPACE FORWARD ONE RECORD 

{ CALL ROUTINE 

iRESTORE R3 

j BUMP TO NEXT RECORD NUMBER 

I BUMP COUNTER 

» BR, IF DONE 

j BR. IF NOT DOVe YET 

j <<<<<<<<<<<<< END SUBTEST >>>>>>>>>>>> 

L 10060: 

TRAP C$ESUB 
}IS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



{DO WE NEED TO ITERATE TEST 

j BR, IF NO LOOP REQUIRED 

;EXECUTF AGAIN 

j ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10057-. 



j COMMAND PACKET FOR TF.ST 

iWRITE CHARACTERISTICS COMMAND, WITH 

j ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{SELECT DRIVE 
{MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLQH< DATA 

:SIZE OF DATA PACKET 



N12 



TEST 1 - HARDWARE TEST 19 TEST MACRO M1113 
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3460 

3470 

3471 

34 72 

3-*73 

3474 

3475 

3476 

J477 

3478 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491. 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 



054530 
054532 
054532 
054534 
054536 



054540 
0'J>4540 
054541 
054542 
054544 



054546 
054550 
054552 
054554 



054556 
054560 
054562 



054564 
054642 
054722 
055012 
055101 
055165 
055260 
055327 
055410 
055505 



055522 
055522 
055526 
055532 



100005 

003116 
OCOOOO 
000000 



010 

200 

OOOOOO 

000000 



100205 
100605 
102205 
177777 



OOOOOO 
OOOOOO 
OOOOOO 



122 
124 
125 
125 
127 
124 
122 
124 
104 
104 



145 
123 
116 
116 
122 
141 
145 
123 
141 
141 



141 
123 
103 
103 
111 
160 
167 
123 
164 
164 



01-FEIB-84 18:55 



.WORD 100005 



SEQ 156 



T33RB: 






T33WB: 


.WORD 


FREE 




.WORD 





T33SZ; 


.WORD 





i 


.EVEN 




♦ 
T33BF2j 






T33BS0: 


.BYTE 


10 


T33BS1: 


.BYTE 


200 


T33S2: 


.WORD 





T33S3: 


.WORD 






jREREAD COMMAND, AND ACK 
j ADDRESS OF WRITE BUFFER 
I SIZE OF BUFFER (EXTENT) 



jBSELO AREA 
}BSEL1 AREA 
jSEL 2 AREA 
{DATA AREA 



{REREAD DATA (NEXT) 
{REREAD DATA RETRY 
{WRITE CONfTNOUS 
{END OF DATA 



{TAPE TIMER COUNTER 
{TAPE TIMER COUNTER 
{DELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



.EVEN 
{TAPE MOTION PACKET COMMAND VALUES 

T33RN; .WORD 100205 

T33WDR; .WORD 100605 

T33C0N: .WORD 102205 

.WORD 177777 

T33CNT; .WORD 

T33CNU: .WORD 

T33DLY! .WORD 



IlOCAL TEXT MESSAGES FOR TEST 



T33RBP: .ASCIZ 'Read Bus Parity Bit Not Set (XST1), Should -le' 

T33WPW; .ASCIZ 'TSSR Incorrect After Wrong Parity Write Command' 

T33UNC: .ASCIZ "JNC Bit CXST1) Not Set After Wrong Pari ty WRITE Con-mand' 

T33UND: .ASCIZ ' UNC Bit (XST1) Not Set After Wrong Parity READ Command 4 

T33SSR: .ASCIZ 'WRITE MISCELLANEOUS CONT/READ COMMAND Not Accepted' 

T33B0T: .ASCIZ 'Tape Not At BOT After REWIND Command CBOT Not Set In XSTO)' 

T33RWNt .ASCIZ 'Rewind (POSITION) Command Not Accep'^d* 

T33WDC; .ASCIZ 'TSSR Not Correct After READ Wrong Parity Command* 

T330TA; .ASCIZ 'Date Compare Error, Data Read From Tape Not Equal To Written' 

TST33ID! .ASCIZ 'Data Parity' 
.EVEN 



i 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
WRITE SUBSYSTEM MEMORY COMMAND 



T3JREST 



012/01 
012721 



0:>4400 
100004 



SAVREG 

rev 

MOV 



#T35PACKfcT ,R1 
4100004, (Rl)» 



j SAVE THE REGISTERS 
•STAR* OF THE PMCKET 
{WRITE SUBSYSTEM MEM, 



WITH AC« 



TEST I - HARDWARE TEST 


1 8 TEST 


TEST 5« DATA PARITY TEST 


352* 05553ft 


012721 


054410' 


3527 05554 > 


005021 




3528 05554 X 


012721 


000012 


3529 055550 


012721 


054422' 


3530 055554 


005021 




3531 055556 


012721 


000024 


3532 055562 


005021 




3533 055564 


012711 


000000 


353 4 055570 


012702 


000030 


35^5 055574 


012762 


177777 


3536 055602 


005742 




353' 055604 


022702 


000000 


3538 C55610 


001371 




3539 055612 


000207 




3540 






3541 






3542 055614 






3543 055614 






3544 055620 


012701 


054510' 


3545 055624 


012721 


100006 


3546 055630 


012721 


054 540' 


3547 055634 


005021 




3548 055636 


012721 


000006 


3549 055642 


iX/3021 




^550 055644 


012701 


054540' 


3551 055650 


0050 "U 




35u2 055652 


005011 




3553 055654 


000207 




3554 055656 






3555 055656 






3556 055662 


012701 


054530' 


3557 C! rc S66 


p-5021 




355A 055t""* 


005021 




3559 0556/2 


005021 




H560 0556 74 


005011 




^561 055676 


000207 




35S2 055700 






055 700 






055700 


104401 




356 3 






356*1 






3565 






3S66 






3'4 7 






SJ«.8 






3569 






35/0 






35fl 






3572 






3573 






3574 






3575 






3576 055702 






055702 






35/7 055702 


0.2737 


006166' 


3582 055710 


012700 


06305/ 


3563 055714 


004 737 


016402* 



MACRO M1113 



0544,2' 641: 





B13 


Ol-FEB-84 


18 j 55 


MOV 


♦T33DATA,(R1)* 


CLR 


(HI)* 


MOV 


♦io.,(ru» 


MOV 


♦Y33BFR,(R1). 


CLR 


(Rl)* 


MOV 


•20,, CRD* 


CLR 


(Rl)» 


MOV 


♦0,(R1) 


MOV 


♦24. ,R2 


MOV 


♦17V777.T33BFRCR2) 


TST 


(R2) 


CMP 


♦0,R2 


BNE 


6H 


RTS 


PC 


2; 

SAVRtu 




MOV 


♦T33PK2.R1 


MOV 


♦100006, ,R1). 


MOV 


♦T33BF2,(R1)> 


CLR 


(Rl)» 


MOV 


♦6..CR1)* 


CLR 


(Rl)» 


MOV 


♦T338F2.R1 


CLR 


(Rl)» 


CLR 


(Ri) 


RTS 


PC 


3: 




SAVREG 




MOV 


♦T33PK3.R1 


CLR 


(Rl)» 


CLR 


(Rl). 


CLR 


(Rl). 


CLR 


(Rl) 


RfS 


PC 


ENO r Sl 





SEQ 157 



lADDRESS OF CHARAIsriCS DATA BLOCK 
lEXTEKJED A0DRE55 
I SIZE OF DATA BLOCK IN BYTES 
lADDRESS OF MESSAGE BUFFER 

I LENGTH OK MESSAGE BUFFER 



TO BE CLEARED 
BUFFER 



I SELECT DRIVE ZERO 

iNUMBER OF LOCATIONS 

» ALL ONES TO ME5SAPC 

iNEXT LOCATION 

I AT END OF LOOP YET 

I KEEP GOING UNTIL DONE 

iRETURN 



I SAVE THE REGISTERS 

iSTART OF THE JACKET 

j WRIT" SUBSYSTEM MEM. WITH ACK 

lADDHESS OF DATA BLOCK 

lEXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



I RE TURN 

iSAVE REGISTERS 

iScT UP POINTER ADDRESS 

iCOMMANO SPACE 

jMDDRESS OF DATA BLOCK 

^EXTENDED ADDRESS 

I SIZE OF DATA TRANSFER BLOCK 

I RE TURN 



L 1005 7 j 



TrtAP 



CIKT5T 



,S*:TTL TEST 6j OPERATIONS AT EOT 



THIS Tl-S 
COMMAND (S» 



CRIMES PROPER OPERATION Of Tt€ 
*CE REVERSE, ERASE, WRITE DATA) 



WRITE DATA RETRY 



THE (£\\1 CONSISTS OF THE FOLLOWING i SUBTEST 



0021?2' 



BGNTST 

MOV 
MOV 
JSR 



♦EPRTl.EPRTSW 
♦ TST3<JID»R0 

PC.TSTSfcTUP 



T6; : 
jPRIMARy ERROR MESSAGE 
jASQIt MESSAGE TQ I0FNUF1 
|Utt INITIAL TCJ>I 'it TUP 



TfcST 



TEST 

TEST 



opTOS&n^J £o? TfcsT MACR0 mu ' ol - pftB " M l8{55 



C13 



SEQ 158 



3564 
3565 

3586 
3587 
3533 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 

3596 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
360 7 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
?,621 
3622 
3623 
3624 
3625 
3626 
362 7 
3628 
3629 
3630 
3651 
3632 
3633 
3634 
3635 
36 36 
3637 
3638 
3639 

3640 



055 720 012737 000005 002210 1 
055726 005037 060542' 



MOV 05.L00PCNT 
CLR T34CNT 



■PERFORM 5 ITERATIONS 

l CLEAR TAPE RECORD COUNTER 



TEST 6, SUBTEST 1 



THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 
THfc VARIOUS TAPE MOTION COMMANDS. THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 

1. THE TAPE IS REWK»JO. 

2. WRITE DATA COMMANDS ARE REPEATEDLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOW. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECORDS WITH DATA 
ERRORS ARE RETRIED. SO THE TAPE ENOS UP WITH GOOO DATA, 

3. ANOTHER WRITc DATA COMMANO IS ISSUED, ANO IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT- I. 

4. A WRITE TAPE MARK COMMANO IS ISSUED, ANO IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOW. 

5. A SKIP TAPE MARKS REVERSE COMMANO IS ISSUED. ANO IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS. WITH 
EOT-l AND TMK-1. 

6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT Of 
1, IS ISSl£D, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS. WITH EOT-l ANO TMK-1. 

7. A SPACE RECORDS REVERSE COMMANO, WITH A RECORD COUNT Of 
1, IS ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-l. 

8. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF" 
1. IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOW, 

9. A READ REVERSE COMMANO IS ISSUED. AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOW. 

10. A READ FORWARD COMMANO IS ISSUED, AND IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOW. 

11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT Of 
3. IS ISSUED. AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-0. 

12. A SPACE RECORDS FORWARD COMMANO, WITH A RECORD COUNT 0* 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-l. 

13. A SKIP FILE MARKS REVERSE COMMAND 15 ISSUED. WHICH 
SHOULD SKIP ALL THE WAY TO BGT, ANO IT IS CHECKED THAT 



TESj 1 - 


HARDWARE 1EST 


1 -8 TEST 


TEST 6: 


OPERATIONS AT 


EOT 


5641 








5642 








5645 








5644 








5645 








5646 








564 7 








5648 








5649 


055752 






5650 








5651 








5652 








5655 








5654 








5655 








5656 








5657 








5658 








5659 








5660 








5661 








5662 








5665 








5664 








5665 








5666 








5667 








5668 








5669 








5670 








5671 








5672 








5675 








5674 


055752 
055752 








055752 


104402 




5675 


055754 


004757 


065102' 


56 76 


055740 


004757 


065256' 


5677 


055744 


004757 


065174' 


5678 


055750 


012757 


176750 


5679 


055756 


004757 


015664' 


5680 


055762 


105455 




5681 


055764 








055764 


012727 


000250 




055770 


000000 






055772 


015727 


002116' 




055776 


000000 






056000 


005567 


177772 




056004 


001575 






056006 


005567 


±77756 




056012 


001567 




5682 


056014 


016501 


000002 


5685 


056020 


052701 


000200 


5684 


056024 


001012 




5685 


056026 


005557 


060544' 


5686 


056052 


001551 




5687 


056054 


005257 


002214' 



MALRO M1115 Ol-FfcO-84 18;55 



D13 



SEQ 159 



TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT*0, 
BOW, AND RIB-1, 



T54LO0P: 



TEST 6, SUBTEST 1 

VERIFIES THAT WRITING OVER THE END-OF-TAPE (EOT) 
MARKER CAUSES TAPE STATUS ALERT TERMINATION, IF THE 
TAPE TRANSPORT OOFS NOT RECOGNIZE THE EOT MARKER, THE 
TAPE WILL RUN OFF THE ENO OF THE REEL, CAUSING THE 
PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 
INDICATION. IN THIS CASE, CORRECTIVE MAINTENANCE 
MUST 8E PERFORMED USING THE TRANSPORT'S BUILT-IN 
MAINTENANCE ROUTINE AVAILIABLE VIA 1HE FRONT PANEL. 
IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, THE 
TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
THE END OF THE REEL BUT THE TRANSPORT MUST BE 
MANUALLY PLACED BACK ON-LINE TO BE USABLE, THIS IS A 
rATAL DIAGNOSTIC ERROR . 



060544 



10$: 



BGNSUB 




j >> >>>>>%>>>> BEGIN SUBTEST >>>* >»>>•»>* > 






T6.1i 


TRAP 


c$osue 


JSR 


PCT54REST 


<SET COMMAND PACKET 






JSR 


PC.T54RT5 


iPESTORE PACKET 






JSR 


PC.T54RT2 


iSET UP OTHER COMMANO 


PACKET 




MOV 


v65000. , T34DLY 


iSET UP COUNTER 






JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


201 


jBR IF INIT WAS OK 






DELAY 


250 


j DELAY A WHILE 


MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 


0250 ,( PC)* 



LJDL.Y .(PC)* 



■6(PC) 

. -4 

-j:2(pc) 

♦ -20 


MOV 


TSSR(R5),R1 


iGET TSSR STATUS 






BIT 


0SSR.R1 


jCHECK FQ^ SSR SET 






BNE 


20$ 


}BR, WHEN SSR IS SET 






DEC 


T54DL V 


iBUMP COLNTER DOWN 






BNE 


10$ 


|BR, IF MORE DELAY REQUIRED 




INC 


FATFLG 


lERROR COUNT 







E13 



TEST 1 - HARDWARE TEST 1-8 
TEST 6: OPERATIONS AT EOT 



TKST MACRO Ml 113 



3691 
3692 



3693 

3694 
3695 
3696 
3697 
3698 
3699 
3703 
3704 



3705 

3706 
3707 
3708 
3709 
3710 
3714 



3715 

3716 
3717 
3718 
3719 
3720 
3721 
372? 
3723 
3724 
3725 
3726 
3727 
372P 
372i 
3753 



3734 
3735 
3736 
3737 



056040 

056042 

056042 

056044 

056046 

056050 

056052 

056052 

056054 

056062 

056070 

056074 

056100 

056)02 

056106 

05G110 

056110 

056112 

056114 

056116 

056120 

056120 

056122 

056126 

056130 

056134 

056136 

056142 

056142 

056144 

056146 

056150 

056152 

056152 

056154 

056162 

056166 

056174 

056202 

056206 

056212 

056216 

056222 

056226 

056230 

056232 

056234 

056236 

056242 

056242 

056244 

056246 

056250 

056252 

056256 

056260 

056262 



010001 

104455 
001131 
003642' 

011724' 

104406 

013737 00^174' 060420 

052737 000040 060420' 

012704 060400' 

004737 010552' 

103407 

005237 002214' 

010001 

104456 
001132 
005046* 

011724' 



104406 
004737 
103411 
016501 
010004 
005237 

104456 

001133 

062207' 

011736' 

104406 
012737 
012703 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001010 
005303 
001364 
005237 

104455 

001134 

061766* 

011736' 

032701 

001001 

000 752 

013701 



010704 
OC0002 
002214 



20$: 



01-FE8-84 


16:55 




SEQ 160 


MOV 


R0.R1 


jCONTENTS OF TSSR REGISTER 




ERROF 


ERRNO,SFIERR, SFIMSG 


»FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


601 






,WOR0 


SFIERR 






.WORD 


SFIMSG 


CKLOOP 




lLOO? IF SELECTED 





MOV 


UNITN,T34DSW 


BIS 


0BIT5.T34DSW 


hOV 


0T34PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


30$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



30$ 



CKLOOP 



JSR 


PC. REWIND 


BCS 


3%$ 


MOV 


TSSR(R5),R1 


MOV 


R0.R4 


INC 


FATFLG 


ERRHRD 


ERRN0.T34RWN.PKTSSR 



35$: 



CKLOOP 



140005 

176750 

0O3116 1 

006654 

060530 

OOOOOO 

016140 

0O0002 

OO0200 



002214' 



060530 

060532 
060536 



40$: 



MOV 


0140005 ,T34PK3 


MOV 


065000. ,R3 


MOV 


FREE.T34WB 


MOV 


03500., T34SZ 


MOV 


0T34PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR,R2 


CMP 


R1.R2 


BNE 


50$ 


DEC 


R3 


BNE 


40$ 


INC 


FATFLG 


ERRDF 


ERRN0.T34ET.PKTSSR 



000004 



060430 



50$: 



60$: 



BIT 


0BIT2.R1 


BNE 


60$ 


BR 


00$ 


MOV 


T348FR*6.R1 



TRAP C$CLP1 
I SET UP DRIVE NUMBER 
i TURN ON HIGH SPEED TO SAVE TIME 
j SUBROUTINE NEEDS PACKET ADDRESS 
j ISSUE WRITE CHARACTERISTICS 
I BR, IF COMMAND ISSUED OK 

{ ERROR COUNT 
j SAVE CONTENTS Of TSSR 
{WRITE CHARACTERISTIC 



jLOGP IF SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


602 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



C$CLP1 



iREWINO CALL 

iBR, IF TSSR IS OK (GOOD) 

tGET TSSR 

iSET UP PACKET 

i ERROR COUNT 
;TSSR IS INCORRECT AFTER REUIND 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 

1WRITE DATA, ACK, CVC-1 
jSET MAX NUMBER CF WRITES 
>SET UP WRITE BUFFER ADDRESS 
.SET UP BUFFER SIZE (4K BYTES) 
} R4 - POINTER TO PACKET 
j ISSUE COMMANO 
iWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 

IT MIGHT BE ENO OF TAPE 
RECORD COUNTER 
IF MORE TO GO 

jERROR COUNT 
NOT rOUND (USE SHORTER TAPE?) 



CiERHRO 
603 
T34RWN 
PKTSSR 

C$CLP1 



J SET 

:ARE 
iBR, 
;DEC 
:BR, 



jEOT 



TRAP 


C$ERDF 


.WORD 


604 


.WORD 


T34ET 


.WORD 


PKTSSR 


l CHECK FOR TAPE STATUS ALERT 




»BR. IF SET 




jKEEP GOING 




(PICK UP XSTO 





F13 



TEST 1 - HARDWARE TEST 


1-8 TEST MACRO I 


TEST 6: OPERATIONS AT 


37.58 056266 


010102 




3739 056270 


052702 


000001 


3740 056274 


020102 




3741 056276 


001402 




3742 056300 


000137 


056206* 


3743 056304 






056304 


104406 




3744 C56306 


012737 


1.40005 06053G 


3745 056314 


013737 


003116* 060532 


3746 056322 


012737 


006654 060536 


374 7 0*6330 


012704 


060530' 


3748 056334 


010465 


000000 


0749 056340 


004737 


016140' 


3750 056344 


016501 


OC0002 


3751 056350 


012702 


100204 


3752 056354 


020102 




3753 056356 


001406 




3754 056360 


00523/ 


002214' 


3758 056364 






056364 


104456 




056366 


001135 




056370 


061237' 




056372 


011736' 




3759 056374 






056374 


104406 




3760 056376 


013701 


060430' 


3761 056402 


010102 




3762 C56404 


052702 


OOOOOl 


3763 056410 


020102 




3764 056412 


001406 




3765 056414 


005237 


002214* 


3769 056420 






056420 


104456 




056422 


001136 




056424 


061321* 




056426 


015364' 




3770 056430 






056430 


104406 




3771 056432 


012737 


140011 060530 


3772 056440 


012704 


060530* 


3773 056444 


010465 


OOOOOO 


3774 056450 


004737 


016140' 


3 775 056454 


016501 


000002 


3776 056460 


0127C2 


100204 


3777 056464 


020102 




37 78 056466 


001406 




3779 056470 


005237 


002214' 


3783 056474 






056474 


104456 




056476 


001137 




056500 


061150' 




056502 


011736' 




3784 056504 






056504 


104406 




3785 056506 


013701 


0604 30* 


3786 056512 


010102 




3787 056514 


052702 


OOOOOl 



01-FEB-Q4 18?55 



SEQ 161 



80$; 



90$; 



100$: 



MOV 


R1,R2 




; SET UP EXPECTED 




BIS 


08Ii0,R2 




iSET THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




iWAS THE BIT ON 




BEQ 


80$ 




iBR. IF EOT WAS FOUND 




JMP 


40$ 




iKEEP LOOKING 




CKLOOP 






jLOOP IF SELECTED 

TRAP 


CSCLP1 


MOV 


0140005, T34PK3 


iWRITE DATA, ACK , CVC-1 




MOV 


'•*REE , T34WB 




»SET UP WRITE BUFFER ADDRESS 




MOV 


03500., T34SZ 




;SET t*> BUFFER SIZE (4K BYTES) 




MuV 


0T34PK3,R4 




tR4 - POINTER TO PACKET 




MOV 


R4,TS0B(R5) 




i ISSUE COMMANO 




JSR 


PC.WAITF 




lUAIT FOR SSR TO SET 




MOV 


TSSR(R5).R1 




iGET TSSR CONTENTS 




MOV 


0SC!SSR«BIT2, 


>R2 


iSET UP EXPECTED 




CMP 


R1.R2 




tARE THEY EQUAL 




BEQ 


90$ 




jBR. IF THEY ARE OK 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0.T34ET2, 


.PKTSSR 


jWRITE TAPE AT EOT FAILED TO SET TSA 








TRAP 


C$ERHRD 








.WORD 


605 








.WORD 


T34ET2 








.WORD 


PKTS3R 


CKLOOP 






jLOOP IF SEt ECTED 

TFAP 


C$CLP1 


MOV 


T34BFR»6,R1 




jPICK UP XSTO 




MOV 


R1.R2 




{SET UP EXPECTED 




BIS 


06I T 0,R2 




j SET THE EOT BIT ON IN EXPECTED 




CMP 


Rl.RP 




iWAS THE BIT ON 




BEQ 


100$ 




1 BR, IF EOT WAS FOUND 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0.T34ETN, 


.EXPREC 


{EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
606 

T34ETN 
EXPREC 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


0140011, T34PK3 


I WRITE TAPE MARK, ACK, CVC-1 COMMAND 


MOV 


OT34PK3.R4 




;R4 - POINTER TO PACKET 





110$ 



MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 



MOV 
MOV 
BIS 



R4,TS0B(R5) 

PCWAITF 

TSSRCR5),R1 

0SC»SSR!BIT2.R2 

R1,R2 

110$ 

FATFLG 

ERRN0,T34WTM,H<TSSR 



j ISSUE COMMANO 
{WAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
iSET IP EXPECTED 
j ARE THEY EQUAL 
jBR, IF STATUS 
j ERROR 
{EOT NOT FOUND 



{LOOP IF SELECTED 



IS GOOD 


(OK) 




COUNT 






(USE SHORTER TAPE?) 




TRAP 


C$ERHRD 




.WORD 


607 




.WORD 


T34WTM 




.WORD 


PKTSSR 



T34BFR*6,R1 

R1.R2 

0BIT0,R2 



I PICK UP 

} SET UP 
j SET THL 



XSTO 
EXPECTED 
EOT BIT 



TRAP 



C5CLP1 



ON IN EXPECTED 



G13 



TEST 1 


HARDWARE TEST 


1-8 TEST MACRO M 


TEST 6: 


: OPERATIONS AT 


EOT 


3788 


056520 


020102 




3789 


056522 


001406 




3790 


056524 


005237 


002214' 


3794 


056530 








056530 


104456 






056532 


001140 






056534 


060652' 






056536 


015364- 




3795 


056540 








056540 


104406 




3796 


056542 


012737 


141410 060530' 


3797 


056550 


012737 


000001 060532* 


3798 


056556 


012704 


060530' 


3799 


056562 


010465 


000000 


3800 


056566 


004737 


016140' 


3801 


056572 


016501 


000002 


3802 


056576 


012702 


000200 


3803 


056602 


020102 




3804 


056604 


001406 




3805 


056606 


005237 


002214' 


3809 


056612 








C56612 


104456 






056614 


001141 






056616 


061550' 






056620 


011736' 




3810 


056622 








056622 


104406 




3811 


056624 


C13701 


060*30' 


3812 


056630 


01C102 




3813 


056632 


052702 


000001 


3814 


056636 


020102 




3815 


056640 


001406 




3816 


056642 


005237 


002214* 


3820 


056646 








056646 


104456 






056650 


001142 






056652 


061321' 






056654 


015364' 




3821 


056656 








056656 


104406 




3822 


056660 


013701 


060430' 


3823 


056664 


010102 




3824 


056666 


052702 


100000 


3825 


056672 


020102 




3826 


056674 


001406 




3827 


056676 


005237 


002214' 


3831 


056702 








056702 


104456 






056704 


001143 






056706 


061633' 






056710 


015364' 




3832 


056 712 








056712 


104406 




3833 


056714 


012737 


140410 060530* 


3834 


056722 


012737 


000001 060532* 


3835 


056 730 


012704 


060530' 


3836 


056734 


010465 


000000 



Ol-FEB-84 18i55 



SEQ 162 



120$ s 



CMP 


R1.R2 


j WAS THE BIT ON 




BEQ 


120$ 


jBR, IF EOT UAS FOUND 




INC 


FATFLG 


I ERROR COUNT 




ERRHRD 


ERRN0.T34ET0.EXPREC 


jEOT BIT (XSTO) NOT SET 








TRAP 


CJER.HRD 






.WORD 


608 






.WORD 


T34ET0 






.WORD 


EXPREC 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CJCLPl 


MOV 


$141410. T34PK3 


iSKIP TAPE MARK REVERSE ACK,CVC 


-1 COMMAND 


MOV 


01.T34WB 


jSET NUMBER (1) OF TMS TO SKIP 




MOV 


*T34PK3>R4 


jR4 - POINTER TO PACKET 




MOV 


R4.TSDBCR5) 


1 ISSUE COMMANO 




JSR 


PC,WAITF 


jUAIT FOR SSR TO SET 




MOV 


TSSR(R5).R1 


jGET TSSR CONTENTS 




MOV 


*SSR,R2 


»SET UP EXPECTED 




CMP 


R1,R2 


i ARE THEY LQUAL 




BEQ 


130$ 


j BR, IF STATUS IS GOOD COK) 




INC 


FATFLG 


j ERROR COUNT 




ERRHRD 


ERRN0.T34STM.PKTSSR 


j SKIP TAPE MARK REV. DIDN'T SET 


TSA 






TRAP 


C$ERHRD 



130$ 



CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
ERRHRD 



140tj CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
INC 
E9RHRD 



150$: 



CKLOO^ 



iLOOP IF SELECTED 



T34BFRf6,Rl 

Rl,R2 

*BIT0,R2 

R1.R2 

140$ 

FATFLG 

ERRN0.T34ETN.EXPREC 



.WORD 
.WORD 
.WORD 

TRAP 



jPICK UP XSTO 

j SET UP EXPECTED 

jSET THE EOT BIT ON IN EXPECTED 

jWAS THE BIT ON 

j BR, IF EOT WAS FOUND 
lERPOR COUNT 

iEOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



609 

T34STM 

PKTS5R 

C$CLP1 



lLOOP IF ELECTED 



T34BFR»6,R1 

R1.R2 

06IT15.R2 

R1.R2 

150$ 

FATFLG 

ERRN0,T34TMK,EXPREC 



TRAP 



j PIC**' V XSTO 

UP EXPECTED 

THE TMK BIT ON IN EXPECTED 

THE BIT Oil 

IF TMK VA:i TOUNO 

j ERROR COUNT 
BIT (XSTO) NOT SET 

T*AP 

WORD 
.WORD 
.WORD 



C$ERHRD 
610 

T34ETN 
EXFREC 

CSCLP1 



*SET 

iWAS 
iBR. 

iEOT 



lLOOP IF SELECTED 



MOV 


0140410, T34PK3 


MOV 


01.T34W8 


MOV 


4T34PK3,R4 


MOV 


R4,TSDB(R5) 



IS REVERSE 



I SPACE 

{SPACE ONE RECORD REVERSE 
jR4 • POINTER TO PACKET 
1 ISSUE COMMAND 



TRAP 
ACK, 



CVC 



C$ERHRD 
611 

T34TMK 
EXPREC 

CJCLP1 
»1 CHD 



H13 



TEST L • 


• HARDWARE TEST 


1-8 TEST MACRO M 


TEST 6; 


: OPERATIONS AT 


3837 


056740 


004737 


016140' 


3838 


056744 


016501 


000002 


3839 


056750 


012702 


100204 


3840 


056754 


020102 




3841 


056756 


001006 




3842 


056760 


005237 


002214' 


3846 


056764 








056764 


104456 






056766 


001144 






056770 


060564' 






056772 


011736* 




3847 


056774 








056774 


104406 




3848 


056776 


013701 


0604 30 ' 


3849 


Or.7002 


010102 




3850 


057004 


052702 


000001 


3851 


057010 


020102 




3852 


057012 


001406 




3853 


057014 


005237 


002214' 


3857 


057020 








057020 


104456 






057022 


001145 






057024 


061321' 






057026 


015364' 




3858 


057030 








057030 


104406 




3859 


057032 


013701 


060430' 


3860 


057036 


010102 




3861 


057040 


042702 


100000 


3862 


057044 


02C102 




3863 


057046 


001406 




3864 


057050 


005237 


002214' 


3868 


057054 








057054 


104456 






057056 


001146 






057060 


061633' 






057062 


015364' 




3869 


057064 








057064 


104406 




3870 


057066 


012737 


140410 060530' 


3871 


057074 


012737 


000001 060532' 


3872 


057102 


012704 


060530' 


3873 


057106 


010465 


000000 


3874 


057112 


004737 


016140' 


3875 


057116 


016501 


000002 


3876 


057122 


012702 


000200 


3877 


057126 


020102 




3878 


057130 


001406 




3879 


057132 


005237 


002214* 


3883 


057136 








057136 


104456 






05714i.« 


001147 






057142 


060564' 






057144 


011736' 




3884 


057146 








057146 


10440'- 




3885 


057150 


013701 


060430' 
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SEQ 163 



160$ 



163$; 



165$: 



167$ 



JSR 


PC.WAITF 




(WAIT FOR SSR TO SET 






MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 






MOV 


*SC!SSR!BIT2, 


,R2 


iSET UP EXPECTED 






CMP 


R1.R2 




jARE THEY EQUAL 






BNE 


160 1 




iBR, IT MIGHT BE ENO OF 


TAPE 




INC 


FATFLG 




j ERROR COUNT 






ERRHRD 


ERRN0,T34P0S ( 


.PKTSSR 


;EOT NOT FOUND (USE SHORTER TAPE?) 










TRAP 


C$ERHRD 










.WORD 


612 










.WORD 


T34P0S 










.WORD 


PKTSSR 


CKLOOP 






lLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T34BFRf6,Rl 




iPICK UP XSTO 






MOV 


R1.R2 




iSEY UP EXPECTED 






BIS 


<miT0,R2 




j SET THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




j WAS THE BIT ON 






BEQ 


163$ 




jBR. IF EOT WAS FOUND 






INC 


FATFLG 




l ERROR COUNT 






ERRHRD 


ERRN0,T34ETN, 


, EXPREC 


jEOT BIT (XSTO) NOT SET 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
613 

T34ETN 
EXPREC 


CKLOOP 






lLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T34BFR*6,Rl 




iPICK UP XSTO 






MOV 


R1.R2 




j SET UP EXPECTED 






BIC 


4BIU5.R2 




jCLEAR THE TMK BIT ON IN EXPECTED 


CMP 


R1.R2 




jWAS THE BIT ON 






BEQ 


165$ 




i BR, IF TMK WAS FOUND 






INC 


FATFLG 




j ERROR COUNT 






ERRHRD 


ERRN0.T34TMK. 


, EXPREC 


j EOT BIT (XSTO) NOT SET 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
614 
T34TMK 
EXPREC 


CKLOOP 






j LOOP IF SELECTED 


TRAP 


CICLP1 


MOV 


#140410. T34PK3 


i SPACE FECORDS REVERSE, 


ACK, CVC-1 CMD 


MOV 


01.T34WB 




j SPACE CNE RECORD REVERSE 




MOV 


OT34PK3.R4 




tR4 • POINTER TO PACKET 






MOV 


R4, TSDBCR5) 




{ISSUE COMMANO 






JSR 


PC.WAITF 




;WAIT FOR SSR TO SET 






MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 






MOV 


0SSR.R2 




jSET UP EXPECTED 






CMP 


R1.R2 




jARE THEY EQUAL 






BEQ 


167$ 




j8R, IT MIGHT BE ENO OF 


TAPE 




INC 


FATFLG 




l ERROR COUNT 






ERRHRD 


ERRN0.T34P0S 


.PKTSSR 


lEOT NOT FOUND (USE SHORTER TAPE?) 










TRAP 


C$ERHRD 










.WORD 


615 










.WORD 
.WORD 


T34P0S 
PKTSSR 



CKLOOP 
MOV 



T34BFR*6,R1 



{LOOP IF SELECTED 
j PICK UP XSTO 



TRAP 



C5CLP1 



113 



TEST 1 - 


• HARDWARE TEST 


1-8 TEST 


MACRO M1U3 01 


-FEB-84 


18 s 55 




SEQ 164 


TEST 6: 


: OPERATIONS AT 


EOT 












3686 


057154 


010102 






MOV 


R1.R2 


jSET UP EXPECTED 




3887 


057156 


042702 


000001 




BIC 


*8IT0,R2 


I CLEAR THE EOT BIT ON IN EXPECTED 


3888 


057162 


020102 






CMP 


R1.R2 


iWAS THE BIT OFF 




3889 


057164 


001400 






BEQ 


170$ 


iBR. IF EOT WAS FOUND 




3890 


051166 
057166 


104406 




170$; 


CKLOOP 




lLOOP IF SELECTED 

TRAP 


C$CLP1 


3891 


057170 


012737 


140010 


060530' 


MOV 


$140010, T34PK3 


l SPACE RFCORDS FORWARD, ACK, CVC-1 


3692 


057176 


012737 


000002 


060532* 


MOV 


•2,T34WB 


j SPACE TWO RECORDS 




3893 


057204 


012704 


060530' 




MOV 


•T34PK3.R4 


jR4 - POINTER TO PACKET 




38\/4 


057210 


010465 


000000 




MOV 


R4.TSDBCR5) 


{ISSUE COMMAND 




3695 


057214 


004737 


016140' 




JSR 


PC.WAITF 


jWAIT FOR SSR TO SET 




3896 


057220 


016501 


000002 




MOV 


TSSRCR5),RX 


jfnlT TSSR CONTENTS 




3897 


057224 


012702 


000200 




MOV 


•SSR f R2 


iDET UP EXPECTED 




3898 


057230 


020102 






CMP 


R1,R2 


I ARE THEY EQUAL 




3899 


057232 


001406 






BEQ 


190$ 


I BR, IT MIGHT BE END OF TAPE 




3900 


057234 


005237 


002214' 




INC 


FATFLG 


j ERROR COUNT 




3904 


057240 








ERRHRD 


ERRN0,T34P0S,PKTSSR 


i EOT NOT FOUND CUSE SHORTER * r APE?) 




057240 


104456 










TRAP 


CIERKRD 




057242 


001150 










.WORD 


616 




057244 


060564' 










.WORD 


T34P0S 




057246 


011736' 










.WOPD 


PKTSSR 


3905 


057250 
057250 


104406 




190$! 


CKLOOP 




lLOOP Ih SELECTED 

TRAP 


C$CLP1 


3906 


057252 


013701 


060430' 




MOV 


T34BFRf6,Rl 


.-PICK UP XSTO 




3907 


057256 


010102 






MOV 


R1,R2 


jSET UP EXPECTED 




3908 


057260 


052702 


000001 




BIS 


•6IT0.R2 


i SET THE EOT BIT ON IN EXPECTED 




3909 


057264 


020102 






CMP 


R1.R2 


iWAS THE BIT ON 




3910 


057266 


001406 






BEQ 


200$ 


1 BR. IF EOT WAS FOUND 




3911 


057270 


005237 


002214' 




INC 


FATFLG 


j ERROR COUNT 




3915 


057274 
057274 
057276 
057300 
057302 


104456 
001151 
061400' 
015364' 






ERRHRD 


ERRNO f T34ETS, EXPREC 


»EOT BIT (XSTO) NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
617 

T34ET5 
EXPREC 


3916 


057304 
057304 


104406 




200$ { 


CKLOOP 




jLOOP IF SELECTED 

TRAP 


C$CLP1 


3917 


057306 


012737 


140401 


060530' 


MOV 


•140401, T34PK3 


;READ REVERSE, ACK, CVC-1 




3918 


057314 


013737 


003116' 


060532* 


MOV 


FREE,T34RB 


j SET UP WRITE BUFFER ADORESS 




3919 


057322 


012704 


060530' 




MOV 


•T34PK3.R4 


jR4 - POINTER TO PACKET 




3920 


057326 


010465 


000000 




MOV 


R4.TSDBCR5) 


j ISSUE COMMANO 




3921 


057332 


004737 


016140' 




JSR 


PC.iJAITF 


lUAIT FOR SSR TO SET 




3922 


057336 


016501 


000002 




MOV 


TSSR(R5),R1 


<GET TSSR CONTENTS 




3923 


057342 


012702 


000200 




MOV 


•SSR.R2 


j SET UP EXPr r TEO 




3924 


057346 


020102 






CMP 


R1.R2 


» ARE THEY EQUAL 




3925 


057350 


001406 






BEQ 


205* 


iBR. ONLY SSR IS SET 




3926 


057352 


005237 


002214' 




INC 


FATFLG 


j ERROR COUNT 




3930 


057356 








ERRHRD 


ERRN0.T34RRE.PKTSSR 


jEOT NOT FOUND (USE SHORTER TAPE?) 




057356 


104456 










TRAP 


CIERHRD 




057360 


001152 










.WORD 


618 




057362 


060736' 










.WORD 


T34RRL 




057364 


011736' 










.WORD 


PKTSSR 


3931 


057366 
057366 


104406 




205$j 


CKLOOP 




lLOOP IF SELECTED 

TRAP 


C$CLP1 


3932 


057370 


012737 


140401 


060330' 


MOV 


•140401 ,T34PI<3 


jREAD REVERSE, ACK, CVC-i 




3933 


057376 


013737 


003116* 


060532' 


MOV 


FREE.T34RB 


{SET UP WRITE BUTTER ADDRESS 




3934 


057404 


012704 


060530' 




MOV 


•T34PK3.R4 


jR4 - POINTER TO PACKET 




3935 


057410 


010465 


000000 




MOV 


R4.TSD8CR5) 


1 ISSUE COMMAND 
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SEQ 165 



3936 
3937 
3938 
3939 
3940 
3941 
3945 



3946 

3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3961 



396? 

3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
397? 
3973 
3977 



3978 

3979 
3980 
3981 
398? 
3983 
3984 
3988 



057414 

057420 

057424 

057430 

057432 

057434 

057440 

057440 

057442 

057444 

057446 

057450 

057450 

057452 

057460 

057466 

057474 

057500 

057504 

057510 

057514 

057520 

057522 

057524 

057530 

057530 

057532 

057534 

057536 

057540 

057540 

057542 

057550 

057556 

057564 

057570 

057574 

057600 

057604 

057610 

057612 

057614 

C57620 

057620 

057622 

057624 

057626 

057630 

057630 

057632 

057636 

057640 

057644 

057646 

057650 

057654 

057654 



004737 016140' 

016501 000002 

012702 000200 

020102 

001406 

005237 002314' 

104456 
001153 
060736' 
011736' 

104406 

012737 140001 060530' 

013737 003116' 060532' 

012737 006654 060536' 

012704 060530' 

010465 000000 

004737 016140' 

016501 000002 

012702 000200 

020102 

001406 

005237 002214' 

104456 
001154 
060736' 
011736' 



210$: 



JSR 


PC.WAITF 




jWAIT FOR SSR TO SET 


MOV 


TSSRCR5),R1 




(GET TSSR CONTENTS 


MOV 


0;iSR,R2 




(SET \J> EXPECTED 


CMP 


R1.R2 




iARe they equal 


BEQ 


210$ 




(BR, IT MIGHT BE END OF TAPE 


INC 


FATFLG 




(ERROR COUNT 


ERRHRD 


ERRN0.T34RRE 


.PKTSSR 


j EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C*F.RHRD 
.WORD 619 
.WORD T34RRE 
.WORD PKTSSR 



140001 

003116' 

006654 

060530 

000000 

016140 

000002 

000200 



002214 



104406 
012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001155 
060736 
011736 



104406 

013701 060430' 

010102 

052702 000001 

020102 

001406 

005237 002214' 

104456 



d^OSt 



060530 
060532 
060536 



CKLOOP 

MOV 
MOV 
MOV 
HOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRO 



235$ 



(LOOP IF SELECTED 



0140001, T34PK3 

FREE.T34RB 

43500., T34SZ 

4T34PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

4SSR.R2 

R1,R2 

230$ 

FATFLG 

c RRN0.T34RRb l PKTSSR 



TRAP 



(READ DATA, ACK, CVC-1 

(SET UP WRITE BUFFER ADDRESS 

(SET UP BUFFER SIZE (4K BYTES) 

jR4 - POINTER TO PACKET 

(ISSUE COMMANO 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

(SET UP EXPECTED 

(ARE THEY EQUAL 

(BR, IT MIGHT BE END OF TAPE 

(ERROR COUNT 
(EOT NOT FOUND (USE SHORTER TAPE?) 



(LOOP IF SELECTED 



C$CLP1 



TRAP 


C$ERHRD 


.WORD 


620 


.WORD 


T34RRE 


.WORD 


PKTSSR 



4140001, T34PK3 

FREE.T34RB 

43500., T34SZ 

4T34PK3,R4 

R4 I TSD8(R5) 

PC.WAITF 

TSSR(R5),R1 

4SSR.R2 

R1.R2 

235$ 

FATFLG 

ERRNQ.T34RRE, PKTSSR 



TRAP 



C$CLP1 



(READ DATA, ACK, CVC-1 

(SET UP WRITE BUFFER ADDRESS 

(SET UP BUFFER SIZE (4K BYTES) 

(R4 - POINTER TO PACKET 

(ISSUE COMMAND 

(WAIT FOR SSR TO SET 

(GET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IT MIGHT BE ENO OF TAPE 
(ERROR COUNT 

NOT FOUND (USE SHORTER 



SET 
(ARE 
(BR, 



(EOT 



TAPE?) 









TRAP 


C$ERHRO 








.WORD 


621 








.WORD 


T34RRE 








.WORD 


PKTSSR 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


CSCLP1 


MOV 


T34BFR*6,RJ, 




(PICK UP XSTO 




MOV 


R1.R2 




(SET UP EXPECTED 




PIS 


48IT0,R2 




(SET THE EOT BIT ON IN EXPECTED 




CMP 


R1.R2 




(WAS THE BIT ON 




BEQ 


240$ 




(BR, IF EOT WAS FOUND 




INC 


FATFLG 




(ERROR COUNT 




ERRHRO 


ERRN0.T34ETZ 


EXPREC 


(EOT BIT (XSTO) NOT SET 

TRAP 


C$ERHRD 



K13 



TEST X . 


• HARDWARE TEST 


1-8 TEST MACRO M 


TEST 6 j 


; OPERATIONS AT 


EOT 




057656 


C01156 






057660 


061472' 






057662 


015364' 




3989 


057664 








057664 


104406 




3990 


057666 


012737 


140410 060530' 


3991 


057674 


012737 


000005 060532' 


3992 


057 702 


012704 


060530' 


3993 


057 706 


010465 


000000 


3994 


057712 


004737 


016140' 


3995 


057716 


016501 


000002 


3996 


057722 


012702 


000200 


3997 


057726 


020102 




3993 


057730 


001406 




3999 


05/732 


005237 


002214* 


4003 


057736 








057/36 


104456 






057740 


001157 






057742 


060564 ' 






057744 


011736' 




4004 


057746 








057746 


104406 




4005 


057750 


013701 


060430* 


4006 


057754 


010102 




40O7 


057756 


042702 


000001 


4008 


057762 


020102 




4009 


057764 


001406 




4010 


057766 


005237 


002214" 


4014 


057772 








057772 


104456 






057774 


001160 






057776 


061027' 






060000 


015364' 




4015 


060002 








060002 


104406 




4016 


060004 


012737 


140010 060530' 


4017 


060012 


012737 


000005 060532' 


4018 


060020 


012704 


060530' 


4019 


060024 


010465 


000000 


4020 


060030 


004737 


016140' 


4021 


060034 


016501 


000002 


4022 


060040 


012702 


oooaoo 


4023 


060044 


020102 




4024 


060046 


001406 




4025 


060050 


005237 


002214' 


4029 


060054 








060054 


104456 






060056 


001161 






060060 


061766' 






060062 


011736' 




4030 


060064 








060064 


104406 




4031 


060066 


013701 


060430' 


4032 


060072 


010102 




4033 


060074 


052702 


000001 


4034 


060100 


020102 




4035 


060102 


001400 
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240*: CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



250$: CKLOOP 



260$: CKLOOP 



270$: CKLOOP 



0140410, T34PK3 

05,T34RB 

0T34PK3.R4 

R4.TS0BCR5) 

PC.WAITF 

TSSRCR5).R1 

0SSR.R2 

R1.R2 

250$ 

FATFLG 

ERRN0.T34P0S, PKTSSR 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


BIC 


•BXT0.R2 


CMP 


R1.R2 


BEQ 


260$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T34ETC, EXPREC 



MOV 


0140010, T34PK3 


MOV 


05.T34RB 


MOV 


0T34PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


270$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T34cT,PKTSSR 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


BIS 


0BIT0.R2 


CMP 


R1.R2 


BEQ 


280$ 



. WOPO 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 

I SPACE RECORDS REVERSE, ACK , 

l NUMBER OF RECORDS TO SPACE 

|R4 - POWER TO PACKET 

I ISSUE COMMAND 

i WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

j SET UP EXPECTED 

I ARE THEY EQUAL 

j BR, IT MIGHT BE END OF TAPE 
j ERROR COUNT 

I POSITION COMMAND DIDN'T WORK 

TRAP 
. WORD 
.WORD 
.WORD 



SEQ 166 



622 

T34ETZ 

EXPREC 

C$CLP1 
CVC-1 CMD. 



I LOOP IF SELECTEO 



C$ERHRD 
623 

T34P0S 
PKTSSR 



TRAP 



C$CLP1 



{PICK UP XSTO 

{SET UP EXPECTED 

{CLEAR THE EOT BIT ON IN EXPECTED 

{WAS THE BIT ON 

j BR, IF EOT WAS FOUND 
i ERROR COUNT 

{EOT BIT (XSTO) NOT CLEAR 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

j SPACE RECORDS FORWARD, ACK, 

I NUMBER OF RECORDS TO SPACE 

:R4 - POINTER TO PACKET 

{ISSUE COMMAND 

{WAIT FOR SSR T 1 SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IT MIGHT BE END OF TAPE 
{ERROR COUNT 

{TSSR NOT CORRECT 



C$ERHRD 
624 

T34ETC 
EXPREC 

C*CLP1 
CVC*1 CMD, 



{LOOP IF SELECTED 



TRAP 

.WORD 

.WORD 

.WOHO 

TRAP 



CSERHRD 
625 

T34ET 
PKTSSR 

C$CLPl 



,PICK UP XSTO 

{SET UP EXPECTED 

{SET THE EOT Ll\ ON IN EXPECTED 

{WAS THE BIT ON 

}6R, IF EOT WAS FOUND 
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SEQ 167 



4036 060104 






060104 


104406 




403? 060106 


012737 


141410 060530' 


4038 060114 


01^737 


000003 060532' 


4039 060122 


012704 


060530' 


4040 060126 


010465 


000000 


4041 060132 


012737 


176750 060544' 


4042 060140 


004737 


016140* 


4043 060144 


016501 


000002 


4044 060150 


032701 


000200 


4045 060154 


001017 




4046 060156 






060156 


012727 


000250 


U60162 


000000 




060164 


013727 


002116* 


060170 


000000 




060172 


00536 7 


177772 


060176 


001375 




060200 


005367 


177756 


060204 


001367 




4047 060206 


005337 


060544' 


4048 060212 


001352 




4049 060214 


012702 


000200 


4050 060220 


020102 




4051 060222 


001007 




4052 060224 


005303 




4053 060226 


005237 


002214' 


4057 060232 






060232 


104456 




060234 


001162 




060236 


061766' 




060240 


011736' 




405F 060242 


032701 


000004 


4C_>9 060246 


013701 


060430' 


4060 0S0252 


010102 




4061 060254 


042702 


000001 


4062 060260 


020102 




4063 060262 


001406 




4064 060264 


005237 


002214* 


4068 060270 






060270 


104456 




060272 


0011^3 




060274 


O6102 7 ' 




060276 


015364' 




4069 060300 






060300 


104406 




4070 060302 


013701 


060430' 


4071 060306 


010102 




4072 060310 


052702 


000002 


4073 060314 


020102 




4074 060316 


001406 




4075 060320 


005237 


002214* 


4070 060324 






060324 


104456 




060326 


001164 




060330 


06110V 




060332 


015364' 





280$! CKLOOP 



285$ j 



MOV 


0141410, T34PK3 


MOV 


03,T34RB 


MOV 


0T34PK3.R4 


MOV 


R4,TSDBCR5) 


MOV 


065000. ,T34DLY 


JSR 


PCWAITF 


MOV 


TSSRCR5)»Rl 


BIT 


0SSR.R1 


BNE 


286$ 


DELAY 


250 



286$: 



290$: 



300$: 



DEC 


T34DLY 


BNE 


285$ 


MOV 


0SSR,R2 


CMP 


R1.R2 


BNE 


290$ 


DEC 


R3 


INC 


FATFIG 


ERRHRD 


F.RRN0,T34ET,PKTSSR 



I LOOP IF SELECTED 

TRAP CSCLP1 
I SKIP FILE MARKS REVERSE ,ACK ,CVC-1 COMMAND 
l NUMBER OF FILE MARKS 
jR4 - POINTER TO PACKET 
j ISSUE COMMAND 
{SET UP DELAY COUNTER 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
I CHECK FOR SSR SET 
{BR, WHEN SSR IS SET 
{WAIT ABOUT .25 SECONDS 

MCV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
j BUMP COUNTER 
j BR, IF MORE TO COUNT 
UP EXPECTED 
THEY EQUAL 

IT MIGHT BE END OF TAPE 
RECORD COUNTER 

j ERROR COUNT 
NOT FOUND (USE SHORTER TAPE?) 



0250, (PC)* 



LiDLY.CPO* 



-6(PC) 

. -4 

-22(PC) 

.-20 



I SET 
j ARE 
;BR, 
{DEC 



5 EOT 









TRAP 


C$ERHRO 








.WORD 


626 








.WORD 


T34ET 








.WO.JD 


PKTSSR 


BIT 


06IT2.R1 




; CHECK FOR TAPE STATUS ALERT 




MOV 


T34BFR*6,R1 




;PICK \JP XSTO 




MOV 


R1,R2 




{SET UP EXPECTED 




BIC 


08IT0,R2 




j CLEAR THE EOT BIT IN EXPECTED 




CMP 


R1.R2 




;WAS THE BIT ON 




BEQ 


300$ 




j BR, IF EOT WAS FOKMO 




INC 


FATFLG 




j ERROR COUNT 




ERRHRD 


ERRN0.T34ETC 


EXPREC 


{EOT BIT (XSTO) NOV CLEAR 

TRAP 


CJERHRD 







TRAP 


C$ERHRD 






.WORD 


627 






, WORD 


T34ETC 






.WORD 


EXPREC 


CKLOOP 




{LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T346FR*6.R1 


{PICK UP XSTO 




MOV 


R1.R2 


{SET OP EXPECTED 




BIS 


0SIT1.R2 


j SET THE BOT BIT OH IN EXPECTED 




CMP 


R1.R2 


{WAS THE BIT ON 




BEQ 


320$ 


{BR, If ,iOT WAS f-OUND 




INC 


FATFLG 


I ERROR COUNT 




ERRHRD 


ERRN0.T34B0T, EXPREC 


jEOT BIT (XSTO) NOT CLEAR 








TRAP 


CSERHRD 






.WORD 


628 






.WORD 


T34B0T 






.WORD 


EXPREC 



M13 



TEST 1 - 
TEST 6: 

4080 



4081 
4082 



4083 
4084 
4085 
4086 
4087 
4083 
4089 
4090 



4091 
4092 
4093 
4094 
4096 
4098 
4099 
4100 
''lOl 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4114 
4116 
4117 
4118 
41.19 
4120 
4121 
4123 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4J.37 



HARDWARE TEST 
OPERATIONS AT 



£o? 



TEST MACRO M1113 01-FEB-84 18:55 



060334 
060334 
060336 
060336 
060336 
060336 
060340 
060346 
060350 
060354 
060354 
060360 
060362 
060366 
060366 
060370 



060372 
060400 
060400 
060402 
060404 
060406 
060410 
060410 
060412 
060414 
060416 
060420 
060422 



060504 
C60510 
060510 
060512 
060514 
060516 

060520 
060530 
060530 
060532 
060532 
060534 
060536 



060540 
060542 
060544 



104406 



104403 

023727 002214' 000017 

103402 

004737 017074' 

004737 016350' 

103002 

000137 055732' 

104432 
002672 



100004 
060410' 
000000 
000010 

060422' 

000000 

000012 

000000 

000000 



100006 
060546 
000000 
000006 



100005 

000000 
000000 
000000 



000000 
000000 
000000 



320$ : 
600$! 



999$; 



163$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
JSR 

JSR 
BCC 
..'MP 
EXIT 



FATFLG,015. 
999 i 
PCCKDROP 

PC.TSTLOOP 
163$ 
T34LOOP 
TST 



LOCAL STORAGE FOR THIS TEST 



10-<.-TSV267> 

100004 

T34DATA 



8. 

T34BFR 



10. 





25. 



.BLKB 
T34PACKET: 

.WORD 

.WORD 

.WORD 

.WORD 
T340ATA: 

.WORD 

.WORD 

.WORD 

.WORD 
T34DSW: .WORD 
T.34BFR: .BLKW 

; WRITE SUBSYSTEM MEMORY COMMAND PACKET 

.BLKB 10- <. -TSV267> 
T34PK2: 





.WORD 


100006 




.WORD 


T34BF2 




.WORD 







.WORD 


6. 




.BLKB 


10-<. -TSV2£7> 


T34PK3: 








.WORD 


100005 


T34RB: 






T34W8: 


.WORD 







.WORD 





T34SZ: 


.WORD 
.EVEN 


o 


T34RS.7: 


.WORD 





T34CNT: 


.WORD 





I34DLY: 


.WORD 






j LOOP IF SELECTED 



TRAP 



SEQ 168 



C$CLP1 



t >>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L10062: 

TRAP C$ESUB 
iI5 ERROR COUNT AT 25 
j BR, IF LESS THAN 25 
{TRY TO DROP THE UNIT 

{DO WE NEED TO ITERATE TEST 

{BR, IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

;ALL DONE THIS TEST 

TRAP C$EXIT 
.WORD L10061- 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH ACK 

(ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

{SELECT DRIVE 
{MESSAGE BUFFER 



{WRITE SUB SYS MEh COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

I SIZE OF DATA PACKET 



{WRITE COMMAND, AND ACK 
{ADDRESS OF WRITE/READ BUFFER 
{SIZE OF 8UFFER (EXTENT) 



{LARGEST TAPE RECORD IN BYTES 
{TAPE RECORD COUNTER 
{DELAY COUNTER 



N13 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 6: OPERATIONS AT EOT 



Ol-FEB-84 18:55 



SEQ 169 



4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

414 7 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 

4170 

4171 

4172 

4173 

4174 

4175 

4176 

4177 

4178 

4179 

4130 

4181 

4182 

4183 

4184 

4185 

4186 

418? 

4183 

4139 

4190 

4191 

4192 

4193 

4194 



060546 
060546 
06054 7 

060550 
060552 



060554 
060556 
060560 
060562 



060564 
060652 
060736 
061027 
061104 
061150 
06123? 
061321 
061400 
061472 
061550 
061633 
061733 
061766 
062055 
062133 
062207 
062256 
062331 
06237/ 
062452 
06254 1 
062643 
062716 
06^770 
063057 



010 

200 

OOOOOO 

000000 



100005 
100405 
102005 
.177777 



124 
127 
122 
125 
122 
127 
127 
127 
123 
122 
124 
120 
127 
105 
127 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
117 



123 
122 
105 
156 
105 
122 
122 
122 
120 
105 
123 
117 
122 
117 
122 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
160 



123 
ill 
101 
141 
127 
111 
111 
111 
101 
101 
123 
123 
111 
124 
111 
123 
167 
115 
123 
151 
123 
123 
103 
102 
111 
145 



T348F2: 






T348S0; 


.BYTE 


10 


T34BS1: 


.BYTE 


200 


T34S2: 


WORD 





T34S3; 


.WORD 






iBSELO AREA 
iBSELl AREA 
jSEL 2 AREA 
j DATA AREA 



.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 



T34W0: 
T34W0R: 

T34C0N; 



.WORD 
.WORD 
.WORD 
.WORD 



100005 
1004*5 

1020C5 
177777 



jWRITE DATA (NEXT) 
iWKTTE DATA RETRY 
;URTTE CONTINOUS 
}END OF DATA 



LOCAL T EXT MESSAGES FOR TEST 



T34P0S 

T34ET0 

T34RRE 

T34ETC 

T34B0T 

T34WTM 

T34ET2 

T34ETN 

T34ETS 

T34ETZ 

T34STM 

T34TMK 

T34SSR 

T34ET: 

T34E0Y 

T34TM; 

T34RWN 

T34RNC 

T34AM3 

T340FL 

T34WDD 

T34WDC 

T34VCK 

T34BA: 

T34WSS: 

TST34ID 



.ASCIZ 

,a:ciz 

.ASCIZ 
.ASCIZ 

.asci/: 

.ASCIZ 
.ASCIZ 

.asctz 

. ASCIZ 
ASCIZ 
.*SCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.Abcn 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Incorrect After Position (SPACE RECORDS) Command' 

WRITE TAPE MARK At EOT Failed To Set EOT Bit (XSTO)' 

READ Command At EOT DioW't Give Normal Termination (TSSR)' 

Unable To Clear EOT Indication, (XSTO) Bit 0' 

REWIND Failed To Set BOT (XSTO) Bit' 

WRITE TAPE MARK At EOT Failed To Set Tape Status Alert' 

WRITli DATA At EOT Failed To Set Tape Status Alert • 

WRITE DATA At EOT Fuiled To Set EOT Bit (XSTO)' 

SPACE RECORDS FORWARD At EOT Failed To Set EOT Bit (XSTO)' 

READ DATA At EOT Foiled To Set EOT Bit (XSTO) 1 

TSSR Incorrect After SKIP TAPE MARK REVERSE At EOT' 

POSITION Command At EOT Onto Tape Mark Failed To Set TMK (XSTO) 

WRITE Command Not Accepted' 

EOT Not Found In 65000 3.5K Writer (Use Shorter Tope)' 

NRITE DATA OVER EOT CAVE NO TAPE STATUS ALERT' 

VboS Not Correct After WRITE Command Reject' 

Rewind (POSITION) Command Not Accepted' 

RAM Errcr, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After WRITE Command' 

"OFL" In TSSR' 
DATA Command, 
WRITE DATA Command, 



Drive 7 Select Failed To Set 

TSSR Not Correct After WRIT? 

TSSR Not Correct After 

CVC Set, Didn"t Reset VCK Tn Message Buffer 

TSBA Not Correct After 

WRITE SUBSYSTEM MEMORY 

ASCIZ ' Operations At 



SWB Bit Set' 

Check For Tope Offline 



WRITE DATA Command' 
Command Not Accepted (RAM Reod) 
EOT' 



ROUTINE (Q RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
j WRITE SUBSYSTEM MEMOR> COMMAND 



063102 
063102 



T34REST: 



SAVREG 



j SAVE THE REGISTERS 



B14 



TEST I - HARDWARE TEST 


1-6 TEST MACRO 


TEST 6: OPERATIONS AT 


EOT 


4195 063106 


012701 


060400' 


4196 063112 


012721 


100004 


4197 063116 


012721 


0604 1C 


4196 063122 


005021 




4199 C/63124 


012721 


000012 


4200 063130 


012721 


060422* 


4201 06313-1 


005021 




4202 063136 


012721 


000024 


4203 063142 


005021 




4204 063144 


0127U 


000000 


4205 063150 


012 702 


000030 


4206 063154 


012762 


177777 060422 


4207 063162 


005742 




4208 063164 


020227 


000000 


4209 063170 


001371 




4210 063172 


000207 




4211 






4212 






4213 063174 






4214 0631/4 






4215 063200 


012701 


060510' 


4216 063204 


012721 


lw»0006 


4217 063210 


012721 


060546' 


4216 063214 


005021 




4219 063216 


012721 


000006 


4220 063222 


012701 


060546' 


4221 003226 


005021 




4222 063230 


005021 




4223 063232 


005011 




4224 063234 


000207 




4225 063236 






4226 063236 






4227 063242 


012701 


060530' 


4226 063246 


012721 


100005 


4229 063252 


K 05021 




4230 063254 


005021 




4251 Of. 3256 


005011 




4232 063260 


000207 




4233 063262 






063262 






063262 


104401 




1234 






4235 






4236 






423^ 






4238 






4239 






4240 






4241 






4242 






4245 






4244 






424^, 






424f» 






424,' 






4r4*J 






4249 







M1113 



64$: 



01 


-FED-44 


18s55 




MOV 


*T34PACKET,R1 




MOV 


♦100004 f (Rl). 




MOV 


*T34DATA,(Ri;» 




ClR 


<Rn* 




MOV 


•10.,(R1)» 




MOV 


0T34BFP # (R1)» 




CLR 


(Rl)* 




MOV 


*?0,,(R1)» 




CLR 


(Ri)» 




MOV 


*0,(R1) 




MOV 


♦24..R2 




MOV 


♦ 177777, T34BFR( Re?) 




TST 


(R2) 




CMP 


R2.00 




BNE 


64| 




RTS 


PC 


2; 


SAVREG 






MOV 


•T34PK2.R1 




MOV 


•100006. (Rl)» 




MOV 


#T34BF2,(R1)» 




CLR 


(Rl)» 




MOV 


♦6. .<R1*» 




MOV 


♦ T34BF2.RI 




CLR 


(Rl)» 




CLR 


(Rl). 




CLR 


(Ri) 




RTS 


PC 


3i 


SAVREG 






MOV 


• T34PK5.R1 




MOV 


♦100005,(R1)» 




CLR 


(Rl)« 




CLR 


(Rl>» 




CLR 


(Rl) 




RTS 


PC 




EN'.UST 





SEO 170 



iSTART OF THE PACKET 

iWRITE SUBSYSTEM MEM, WITH AO< 

lAODRESS OF CHARAISTICS DATA BLOCK 

lEXTENDED ADDRESS 

|SIZE OF DATA BLOCK IN BYTES 

[ADDRESS OF MESSAGE BUFFER 

jLENuTH OF MESSAGE BUFFER 

iSELECT DRIVE ZERO 

[NUMBER OF LOCATIONS TO BE CLEARED 

jALL ONES TO MESSAGE BUFFER 

[BUMP DOWN TO NEXT LOCATION 

|R2 AT ZERO rE T 

IKEEP GOING UNTIL DON^ 

[RETURN 



[SAVE THE REGISTERS 

jSTART OT THE PACKET 

[WRITE SUBSYSTEM M£P«. WITH ACK 

lADDRESS OF DATA bLOCK 

lEX TENDED ADDRESS 

[SIZE Of DATA BLOCK IN BYTES 

[POINT TO DATA SEL AREA 



[RETURN 

iSAVE THE REGISTERS 
[START OF THE PACKET 
iWRITF TAPE. WITH ACk 
lADDRESS OF DATA BLOCK 
[EXTENDED ADDRESS 
iSIZE OF DATA BLOCK 
I RE TURN 

L 10061 t 



TRAP 



CIEYST 



,SBT V L TEST 7; EXTENDED MODE FEATURES 



THIS TEST VERIFIES THE OPERATIO* Or COMMANOS ONLY 
THE CONTROLLER IS IN THE EXTENDED FEATURES MODE, 
AREt 

REWIND WITH IMMEDIATE INTERRUPT 



AVAILABLE WHEN 
THESE COMMANDS 



U THE CONTROLLER IS NOT AI.RFAOt IN EX TENDED * EATtjPt S MQDL* IT 
IS PLACED THERE VIA A WRITE SUBSYSTEM MEMORY COMMAND, 



THE TEST CONSISTS OK THE FOLLOWING 7 SUBTtSJIt* 



CI 4 



jyi l ? : nmm m hhmi macro mius oi - feb « 4 i8, > 5 



SEQ 171 



4*250 






4251 






4252 






4253 






4254 063264 






063264 






4255 063264 


012737 


006166 1 002172 


4260 063272 


012700 


073013' 


4261 063276 


004737 


016402' 


4262 063302 


012737 


000005 002210 


4263 063310 


005037 


067416' 


4264 






4265 






4266 






4267 






4266 






4260 






4270 






4271 






427? 






4275 






4274 






4275 






4276 






42?? 






4278 






4279 






4260 






4261 063314 






4282 063314 






063314 






063314 


104402 




4283 063316 


004737 


073044' 


4264 063322 


005037 


002216' 


4265 063326 


004737 


073136' 


4286 063332 


004737 


073200' 


4267 0/>3336 


012737 


176750 067422 


4238 063344 


005037 


067416' 


4289 063350 


004737 


015664' 


4290 063354 


103426 




4291 063356 






063356 


012727 


000250 


063362 


oooooo 




063364 


013727 


002116' 


063370 


000000 




063372 


005%/ 


J 777/2 


063376 


001375 




063400 


005367 


17775b 


065404 


001367 




4292 063406 


005337 


067422' 


4293 063412 


001356 




42>4 063414 


005237 


002214* 


4298 063420 


010001 




4299 063422 






063422 


104455 




063424 


001275 




065426 


005642* 





9GNTST 

MOV 
MOV 
JSR 
MOV 
CLR 



♦EPRU.EPRTSW 

♦TST35ID.R0 

PC.TSTSETUP 

*5,L00PCNI 

T35CNT 



T7; ; 
jPRIMARY ERROR MESSAGE 
lASCII MESSAGE TO IDENTIFY TEST 
lOO INITIAL TEST SETUP 
jPERFORM 5 ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



TEST 7, SUBTEST 1 



VERIFIES THAT A REWINO WITH IMMEDIATE INTERRUPT COMMAND. ISSUED 
WITH THE INTERRUPT ENABLE (IE) BIT CLEAR (0), CAUSES ALMOST 
IMMEDIATE TERMINATION BUT NO INTERRUPT. STATUS IN THE MESSAGE 
BUFFER IS CHECKED TO VERIFY THAT THE MOTION (MOT) ANO OPERATION 
IN PROGRESS (OPM) STATUS BITS ARE BOTH SET, 



T35L00P: 




BGNSUB 




„SR 


PC.T35REST 


CLR 


INTRFrv 


JSR 


PC.T35RT2 


JSR 


PC.T35RT3 


MOV 


#65000, ,T35DLi 


CLR 


T35CNT 


101* JSR 


PC.SOFINIT 


BCS 


20 1 


DELAY 


25V 



)>>>>>>%*>>>> 



BEGIN SUBTEST 
T7.1j 

TRAP 
I SET COMMAND PACKET 
iCLEAR INTERRUPT RECEIVED FLAG 
I SET UP OTHER COMMAND PAC T 
jSET UP OTHER COMMAND PAC .fcl 
t SET UP DELAl COUNTER 
I CLEAR COUNTER 

I DO INITIALIZE ON CONTROLLER 
|BR IF INIT WAS OK 
iDnLAY ABOUT ,25 SEC 



>>>>)>*>>>>> 



c*Bsue 







hov 


♦250, (PC>* 






.WORD 









MCV 


I.IDL.l ,(PC1 






.WORD 









DEC 


■b(PO 






BNE 


. 4 






DEC 


22(PO 






BNE 


, *20 


DEC 


T35DLT 


lBUMP COUNTER 




BNE 


101 


»BR, IF COUNTER NO! DUNE 




INC 


FATFLG 


lERROR COUNT 




MOV 


R0.R1 


iCONTENTS OF TSSR REGISTER 




&RRQF 


ERRNOtSFIERRtSFIMSG 


iFATAL ERROR TSSR WAS NQT OH 








TRAP 


CIERDF 






.WORD 


■'01 






>WQRD 


SF1ERR 



TEST 
TEST 



D14 



4500 
4301 
4302 
430*. 
430; 
4 306 
4309 



4310 

4311 
4312 
4313 
4314 
4315 
4319 



4320 

4321 
4322 
4323 
4324 
4325 
4326 
4330 



4331 

4332 
4*33 

4334 
4335 
4 336 
433? 
4338 
4339 
4 340 
4341 
4 342 
4343 
4344 
4345 
4 346 
4 34 7 
4348 
4349 



HARDWARE 
EXTENDED 



TEST 

MODE 



1-8 TEST 

FEATURES 



063430 
063432 
063440 
063444 
063450 
063452 
063456 
063460 
063460 
063462 
063464 
063466 
063470 
063*70 
063472 
0634 76 
063500 
063502 
063506 
063512 
063512 
063514 
063516 
063520 
063522 
063522 
063524 
063530 
063552 
063536 
063540 
063542 
0631 16 
063546 
063550 
063552 
063554 
063556 
063556 
063560 
063564 
063572 



063600 
063606 

063612 
063616 
063622 
063626 
0636 32 
063634 



011724- 

013737 
012704 
004737 
103407 
005237 
010001 

104456 
001?76 
005046' 
011724' 

104406 
004 737 
103411 
010004 
016501 
005237 

104456 

0012/7 
070524 • 
011736' 

104406 
013701 
010102 
052702 
020102 
001406 
005237 

104456 
001300 
070220' 
015364' 

104406 

012703 
012737 
013737 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 



002174' 
067240' 
01O552- 

002214' 



010704 



000002 
002214 



067270' 
000002 



002214 



000024 
000400 
003116 4 



140005 

067370' 

000000 

016140' 

000002 

000200 



MACRO M1113 



067260' 20$ 



01 


-FEB- 


84 


18:55 




MOV 
MOV 
JSR 
BCS 
INC 
MOV 
ERRHRO 


UNITN.T35DSW 

*T35PACKFT,R4 

PC.WRTCHR 

251 

FATFLG 

R0.R1 

ERRNO,WRTMSG,SFIMSG 



25$; 



CKLOOP 



JSR 


PC.REWINO 


BCS 


30$ 


MOV 


R0.R4 


MOV 


T<SR(R5),R1 


INC 


FATFLG 


ERRHRD 


ERRN0.T35RWN.PKTS5R 



30$ j 



CKLOOP 



MOV 


T35BFR.6.R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATrLG 


ERRHRD 


ERRNO.T35BOT.EXPREC 



40$ j 



067376' 

067572' 



CKLOOP 

MOV 
MOV 
MOV 



020, ,R3 
«256.,T35SZ 

FRFE.T35WB 



SEQ 172 



.WORD SFIMSb 



I SET UP DRIVE NUMBER 

l SUBROUTINE NEEDS PACKET ADDRESS 

i ISSUE WRITE CHARACTERISTICS 



jBR, IF COMMANO ISSUED 

j ERROR COUNT 
j SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTIC 



OK 



FAILED 

raAP 

.WORD 
■ WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 

jCALL TAPE REWIND COMMANO 

jBP. IF NO PROBLEM 

»SET UP REWIND PACKET ADDRESS 

>GET TSSR FOfi PRINTOUT 
i ERROR COUNT 

jREWIND NOT ACCENTED 

TRAP 
.WORD 
.WORD 
.WORD 



lLOOP IF SELECTED 

jPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT XN EXPECTED 

iDOES EXP - REC'D 

,BR t IF EQUAL ( OK ) 

i ERROR COUNT 
I TAPE NOT 



j LOOP IF 



TRAP 



iNUMBER O r RECORDS 
iSE T UP RECORD SIZE 
lADDRESS OF WRITE BUFFER 



TRAP 



WRITC DATA.ACK.CVC-1 COMMANO 



067370 



50$: 



MOV 


*140005 # T35PK3 


MOV 


0T35PK3.R4 


MOV 


R4,TSD8(R5) 


JSR 


PC.WAITf 


MOv 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


60$ 



ADDRESS 



jWRITE DATA,ACK,CVC«1 COMMANO 

jSET UP R4 WITH PACKET 

j I SSI* COMMAND 

tWAIT FOR SSR TO SET 

jGET TSSR CONTfcNTS 

l St T UP EXPECHD 

lARF Th£t EQUAL 

*BR» IF OK 



C$ERHRD 
702 

WRTMSG 
SFTMSG 

C$CLri 



Clt'^HRD 
703 

T35RWN 
PKTS r ^R 

C$CLP1 



AT BOT AFTER REWINO 




TRAP 


C$ERHRD 


.WORD 


704 


.WORD 


T35B0T 


.WORD 


EXPREC 


SELECTED 





C$CLPl 



Eil 4 



TEST I - HARDWARE TEST 
TEST 7; EXTENDED MODE 


teSifliiS HACR0 ' 


4350 063636 


005237 


0022 14 ' 


4354 063642 






063642 


10445/ 




063644 


001301 




063646 


070146' 




063650 


011756' 




4355 063652 






063652 


104406 




4356 063654 


005303 




4357 063656 


001355 




4356 






4359 






4360 






4361 






4362 






4363 






4364 






4365 063660 


012737 


000012 067422 


4366 063666 






063666 


012727 


000250 


063672 


000000 




063674 


013727 


002116' 


063700 


OOOOCO 




063702 


005367 


177772 


063706 


001375 




063710 


005367 


177756 


063714 


001367 




4367 063716 


005337 


067422' 


4366 063722 


001361 




4 369 063724 


005737 


002220' 


4370 063730 


001042 




4371 063732 


112737 


000200 067401 


4372 063740 


U2737 


000010 067400 


43 73 063746 


012704 


067350' 


4374 063752 


010465 


000000 


4375 063756 


004737 


016226' 


4376 063762 


103407 




4377 063764 


OlOOOl 




437S 063766 


005237 


002214' 


4382 06377? 






063^72 


104456 




063774 


001302 




063776 


072302' 




064 (XX) 


011736' 




4383 064002 






064002 


104406 




4384 064004 


012704 


067240 1 


4385 064010 


004737 


010552' 


4386 064014 


103407 




4387 064016 


005237 


002214' 


4T.91 064022 


010001 




4392 064024 






064024 


10445b 




064026 


001303 




064030 


005046' 




064032 


011724' 




4393 0o4034 







11113 Oi-FEB-84 18:55 



SEO 173 



INC FATFLG 

ERRSOFT ERRN0.T35WDE, PKTSSR 



I ERROR COUNT 
jTSSR INCORRECT AFTER WRITE DATA 



60$: 



CKLOOP 

DEC 
8NE 



R3 
50*. 





TRAP 


CIERSOFT 




.WORD 


705 




.WORD 


T35WDE 




.WORD 


PKTSSR 


;LC0P IF SELECTED 








TRAP 


C$CLP1 


iBUMP RECORD COUNTER 






iBR, IF MORE RRECORDS 


TO COUNT 





jWAIT FOR TAPr : TO STOP ALL MOTION 

J 



70S? 



MOV *10, ( T35DLY 

DELAY 250 



0250, (PC)* 



L*DLY,(PC)» 



•6CPC) 

♦ -4 

-22CPC) 

.-20 



DEC 


T350LY 


BNE 


701 


TST 


EXTFEA 


BNE 


110$ 


MOVB 


*200,K5BSl 


MOVB 


010.T358S0 


MOV 


0T35PK2.R4 


MOV 


R4.TSCBCR5) 


JSR 


PC.CHKTSSR 


BCS 


90$ 


MOV 


R0.R1 


INC 


FATFLG 


ERRHRD 


ERRN0,T35SSR,PKTSSR 



t SET UP DELAY COUNTER 
iWAIT ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUMP COLTER DOWN 
iBR, IF MORE TO DELAY 

iCHECK FOR EXTENDED FEATURES SW SWITCH 
iBR IF SWITCH IS ON 

iWRITE MISCELLANEOUS CONT/RF.AD STATUS 
jFLWCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 
jWRITE SUBSYS MEM PACKET 
lISSUT: COMMAND 
iWAIT FOR SSR 
I BR, IF *0 ERROR 
lERROR, SAVE TSSR 

lERROR COUNT 
I TSSR NOT CORRECT AFTER 



90$ j 



CKLOOP 



WRT. Ml 


SCELLANEOUS 


TRAP 


C$ERH«D 


.WORD 


706 


.WORD 


T35SSR 


.WORD 


PKTSSR 



MOV 


0T35PACKET.P4 


JSR 


PC.WRTCHR 


BCS 


100$ 


INC 


FATFLG 


MOV 


RO Rl 


ERRHRD 


EFKN0.WRTHSG.5FIMSG 



100$: CKLOOP 



lLOOP IF SELECTED 

TRA» C$CLP1 

iSLGROUTINE NEEOS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMANO ISSUED OK 
j ERROR COUNT 

j SAVE CONTENTS OF TS^R 

jWRITE CHARACTERISTISC FAILED 

TRAP C$ERHRD 
.WORC 70 7 
.WORD WRTMSG 
.WORD SFIMSG 

I SCOPE LOOP 



F14 



TEST \ - 


HARDWARE TEST 


1-8 TEST 


TEST 7: 


EXTENDED MODE 


FEATURES 




064034 


104406 




4394 


064036 


012737 


176750 


4595 


064044 


005037 


067416' 


4396 








4397 








4398 








4 399 








4400 








4401 








4402 








4403 


064050 


012737 


142012 


4404 


064056 


012704 


067370' 


4405 


064062 


010465 


000000 


4406 


064066 


016501 


000002 


4407 


064072 


032701 


000200 


4408 


064076 


001021 




4409 


064100 


00523/ 


067416' 


4410 


064104 








064104 


012727 


000001 




064110 


000000 






064112 


013727 


002116' 




064116 


000000 






064120 


005367 


177772 




064 124 


001375 






064126 


005567 


177756 




064132 


001367 




4411 


064134 


005337 


067422' 


44 12 


06*140 


001352 




4413 


064142 


012702 


000200 


4414 


064146 


020102 




4415 


064150 


001406 




4416 


064152 


005237 


002214* 


4420 


064156 








064156 


104456 






064160 


001304 






064162 


072650' 






064164 


011736' 




4421 


064166 








064166 


1044C6 




4422 


064170 


005737 


002216' 


4423 


0641/4 


001410 




4424 


064176 


016501 


000002 


4425 


064202 


005237 


002214' 


4429 


064206 








064206 


104456 






064210 


00130^ 






064212 


072461' 






064214 


011736' 




4430 


064216 








064216 


104406 




4431 








4432 








4433 








44 34 








44 35 








4436 








443/ 









MACRO M1113 01-FEB-84 18{55 



067422' 110$ 



MOV 065000, .T35DLY 
CLR T35CNT 



j SET UP DELAY COUNTER 
{DELAY COUNTER 



TRAP 



SEQ 174 



C$CLP1 



***************************************** 

! REWIND IMED. INTERRUPT f ACK. CVC-1 , IE- COMMAND 



;*******************«*****4***t******4*** 



067370 



120$ { 



MOV 


0142012, T35PK3 


MOV 


*T35P<3.R4 


MOV 


R4.TSDBCR5) 


MOV 


T55RCR5),R1 


BIT 


*SSR,R1 


BNE 


130$ 


INC 


T35CNT 


DELAY 


1 



130$: 



DEC 


T550LY 


BNE 


120$ 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T35RWE, PKTSSR 



140$: CKLOO^ 



TST 


INTRECV 


BEQ 


1*0$ 


MOV 


TSSR(R5),«1 


INC 


KATFLG 


ERRHRO 


ERRN0,Y35INT, PKTSSR 



150$: CKLOOP 



• l.(PC)» 


L$DLY,(PC"J* 



-6(PC) 

. -4 

-22CPC) 

.-20 



{REWIND IMED, INTERRUPT ,ACK . CVC- 1.IE-0 COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

l ISSUE COMMAND 

iGET TSSR CONTENTS 

{CHECK FOR SSR SET 

{BR, WHEN SSR IS SET 

jBUMP THE CYCLE COUNTER 

{DELAY TO KEEP COUNTER DOWN 

MOV 

.WORD 

MOV 

.WORD 

DCC 

BNE 

DEC 

BNE 
jDROP DEAD TIMER BUMP DOWN 
{BR, IF MORE TIME TO GO 
{SET UP EXPECTED 
»ARE THEY EQUAL 
{BR, IF OK 

{ERROR COUNT 
l TSSR INCORRECT AFTER WRITE DATA 

TRAP C*ERHRD 

.MORO 708 

.WORD 

.WORD 
{LOOP IF SELECTED 

TRAP 
I CHECK FOR INTERRUPTS 
<BR. IF NO INTERRUPTS DETECED 
{GET TSSR STATUS FOR PRINTOUT 

{ERROR COUNT 
{INTERRUPT RECEIVED (BAD) 

TRAP 

.WORD 

.WORD 

.WORO 
{LOOP IF SELECTED 

TRAP 



T35RWE 
PKTSSR 

CtCLPl 



709 

T35INT 

PKTSSR 



C$CLP1 



NOW CHECK FOR THE MOTION BITS SE T 

**********4*******************4.*****^*** 



G14 



TEST I - 


HARDWARE TEST 


1-8 TEST MACRO I 
FEATURES 


TEST 7s 


EXTENDED MODE 


4438 


064220 


013701 


06/270' 


4439 


064224 


010102 




4440 


064226 


052702 


000200 


4441 


064232 


020102 




4442 


064234 


001406 




4443 


064236 


005237 


002214' 


4447 


064242 








064242 


104456 






064244 


001306 






064246 


072363' 






064250 


015364' 




4448 


064252 








064252 


104406 




4449 


064254 


013701 


067274' 


4450 


064260 


0103,02 




4451 


064262 


052702 


100000 


4452 


064266 


020102 




4453 


064270 


001406 




4454 


064272 


005237 


002214' 


4458 


064276 








064276 


104456 






064300 


001307 






064302 


072552' 






064304 


015364' 




4459 


064306 








064306 


104406 




4460 


064310 


012737 


000027 067422 


4461 


064316 








064316 


012727 


000250 




064322 


000000 






064324 


013727 


002116' 




064330 


COOOOO 






064332 


005367 


177772 




064336 


001375 






064340 


005367 


177756 




064344 


001367 




4462 


064 346 


005337 


067422' 


4463 


064352 


001361 




4464 


064354 
064354 








064354 


104403 




4465 


064356 


023727 


002214 ' 000017 


4466 


064361 


10340? 




4467 


064366 


004737 


017074' 


4468 


06437? 






4469 








44 70 








4471 








4472 








4473 








44 74 








4475 








44 76 








44 7? 








44 78 








4479 








44Q0 









M1113 



01-FEB- 


84 


18:55 


MOV 
MOV 
PIS 
CMP 
BEQ 
INC 
ERRHRD 


T35BFR*6,R1 
R1.R2 
0BIT7 t RSf 
R1.R2 

16CI 

FATFLC 

ERRN0,T35M0T, EXPREC 



160$: CKLOOP 



MOV 


T35BFR.12.R1 




MOV 


R1.R2 




BIS 


4BIT15.R2 




CMP 


R1.R2 




BEO 


170$ 




INC 


FATFLG 




ERRHRD 


ERRN0.T350PM, 


XPREC 



170$: CKLOOP 



175$: 



MOV 
DELAY 



*23,,T35DLY 
250 



DEC 
BNE 
ENDSU3 



CMP 
BLO 
JSR 



999$: 



T35DLY 
175$ 



FATFLU.G15, 

999$ 

PC.CKDROP 



TEST 7j SUBTEST 2 



WITH THE INTERRUPT ENABLE (IF.) 
IMMEDIATE TERMINATION AND AN • 
BUFFER IS CHECKED TO VERIFY M 
IN PROGRESS (OPM) STATUS BIT C 



SEQ 175 



iPICK UP XSTO 

iSET UP EXPECTED 

iSET MOT BIT IN EXPECTED 

jDOES EXP • REC'D 

j BR, IF EQUAL (OK) 

i ERROR COUNT 
j TAPE NOT AT BOT AFTER 



jLOOP IF SELECTED 



REWIND 
TRAP 
.WORD 
.WORD 
.WORD 



jPICK UP XST2 

t SET UP EXPECTED 

t SET OPM BIT IN EXPECTED 

jDOES EXP - REC'D 

l BR, IF EQUAL (OK) 

i ERROR COUNT 
jOPM BIT NOT SET 



TRAP 



CitiRMRD 
710 

T35M0T 
EXPREC 

C$CLP1 





TRAP 


CIERHRD 




.WORD 


711 




.WORD 


T350PM 




.WORD 


EXPREC 


jLOOP IF SELECTED 








TRAP 


C*CLP1 


iSET UP DELAY COUNTER 






j START DELAY 








MOV 


0250, (PC)* 




.WORD 







MOV 


L IDLY, (PC)* 




. WC3D 







DEC 


-6(PC) 




BNE 


. -4 




DEC 


-22(PC) 




BNE 


. -20 


l BUMP CELAY COUNTER 






j BR, IF MORE DELAY 






LI 0064: 








TRAP 


C$ESUB 


lIS ERROR COUNT 


AT 25 




iBR. IF LESS THAN 25 




jTRY TO DROP THE UNIT 





BIT SET (1), CAUSES ALMOST 
(ERRUPT. STATUS IN THE MESSAGE 
i THE MOTION (MOT) AND OPERATION 
\RE BOTH SET, 



H14 



TEST I HARDWARE TEST 


1 § JEST MACRO MU13 
FEATURES 


01-FEB-84 


18:55 




SEQ 176 


TEST 7; EXTENDED MODE 








•** fc»» *« a t %^ 


4481 














4482 














4483 














4484 














4485 




j - 










4486 064372 






BGNSU6 




,>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


064372 










T7.2; 




064372 


104402 








TRAP 


C$HSUB 


4487 064374 






SETPRI 


OPRIOO j ENABLE 


INTERRUPTS. 




064374 


012700 


000000 






MOV 


OPRIOO.RO 


064400 


104441 








TRAP 


C$SPRI 


4488 064402 


004737 


073044' 


JSR 


PC.T35REST 


} SET COMMAND PACKET 




4489 064406 


0050V 


002216' 


CLR 


INTRECV 


j CLEAR INTERRUPT RECEIVED FLAG 




4490 064412 


004737 


073136' 


JSR 


PC.T35RT2 


jSET UP OTHER COMMAND PACKET 




4491 064416 


004737 


073200' 


JSR 


PC.T35RT3 


jSET UP OTHER COMMAND PACKET 




4492 064422 


012737 


176750 067422' 


MOV 


065000., T35DLY 


iSET UP DELAY COUNTER 




4493 064430 


005037 


067416' 


CLR 


T35CNT 


jCLEAR COUNTER 




4494 064434 


004737 


015664* 10$ { 


JSR 


PC.SOFINIT 


lOO INITIALIZE ON CONTROLLER 




4495 064440 


103426 




BCS 


20$ 


{BR IF INIT WAS OK 




4496 064442 






DELAY 


250 


jDELAY ABOUT .25 SEC 




064442 


012727 


000250 






MOV 


0250, CPC)* 


064446 


000000 








.WORD 





064450 


013727 


0^2116' 






MOV 


L$DL1 ,(PO* 


064454 


000000 








.WORD 





064456 


005367 


377772 






DEC 


~6(PC) 


064462 


001375 








BNE 


. -4 


064464 


0053*7 


177756 






DEC 


-22(PC) 


064470 


001367 








BNE 


. -20 


4497 064472 


005337 


067422* 


DEC 


T35DLY 


iBUMP COUNTER 




4498 064476 


001356 




BNE 


10$ 


I BR. IF COUNTER NOT DONE 




4499 064500 


005237 


002214' 


INC 


FATFLG 


i ERROR COUNT 




4503 064504 


010001 




MOV 


R0.R1 


jCONTENTS OF TSSR REGISTER 




4504 064506 






ERRDF 


ERRN0,SFIERR,SF1MSG 


j FATAL ERROR TSSR WAS NOT OK 




064506 


104455 








TRAP 


CIERDF 


064510 


001310 








.WORD 


712 


064512 


003642' 








.WORD 


SFIERH 


064514 


011724' 








.WORD 


S^IMSG 


4505 064516 


013737 


002174' 067260' 20${ 


MOV 


UNITN,T350SW 


iSET UP DRIVE NUMBER 




4506 064124 


012704 


067240' 


MOV 


OT35PACKET.R4 


i SPROUT INE NEEDS PACKET ADORES 


S 


4507 064530 


004737 


010552' 


JSR 


PC.WRTCHR 


»ISSUE WRITE CHARACTERISTICS 




4S08 064534 


103407 




BCS 


25$ 


l9R. IF COMMAND ISSUED OK 




4509 064536 


005237 


002214* 


INC 


FATFLG 


1 ERROR COUNT 




4513 064542 


010001 




MOV 


R0.R1 


jSAVE CONTENTS OF TSSR 




4514 064544 






ERRHRD 


ERRNO.WRTMSG.SFIMSG 


iWRITE CHARACTERISTIC FAILED 




064544 


104456 








TRAP 


CtERHND 


064 546 


001311 








.WORD 


713 


064550 


005046 ' 








.WORD 


WRTMSG 


064552 


011724' 








.WORD 


SFIMSG 


4515 064554 




25$: 


CKLOOP 




lLOOP IF SELECTED 




064554 


104406 








TRAP 


C*CLP1 


4516 064556 


004737 


010/04' 


JSR 


PC. REWIND 


i CALL TAPE REWINO COMMAND 




4517 064562 


103411 




BCS 


30$ 


j BR. IF NO PROBLEM 




4518 064564 


010004 




MOV 


R0.R4 


iSET UP REWINO PACKET ADDRESS 




4519 064566 


016501 


000002 


MOV 


TSSRCR5),R1 


jGET TSSR CONTENTS 




4520 064572 


005237 


002214' 


TNC 


FATFLG 


1 ERROR COUNT 




4524 064576 






ERRHRD 


ERRN0.T35RWN.PKTSSR 


iREWIND NOT ACCEPTED 




064576 


104456 








TRAP 


CSERHRD 



114 



TEST L - 


HARDWARE TEST 


1-8 TEST MACRO M 


TEST 7: 


EXTENDED MODE 


FEATURES 




064600 


001312 






064602 


070524' 






064604 


011736' 




4525 


064606 








064606 


104406 




4526 


064610 


013701 


067270* 


4527 


064614 


010102 




4528 


064616 


052702 


000002 


4529 


064622 


020102 




4530 


064624 


001406 




4531 


064626 


005237 


002214' 


4535 


064632 








064632 


104456 






064634 


001313 






064636 


070220' 






064640 


015364' 




4536 


064642 








064642 


104406 




4537 


064644 


012703 


000024 


4538 


064650 


012737 


000400 067376' 


4539 


064656 


013737 


003116' 067372' 


4540 








4541 








4542 








4543 








4544 








4545 








4546 








4547 


064664 


012737 


140005 067370' 


4548 


064672 


012/04 


067370' 


4549 


064676 


010465 


000000 


4550 


064 702 


004737 


016140' 


4551 


064706 


016501 


000002 


4552 


064712 


012702 


000200 


4553 


061716 


020102 




4554 


064 720 


001406 




4555 


064 722 


005237 


002214" 


4559 


064726 








064 726 


104456 






06^730 


001314 






064732 


070146' 






064734 


0117*6' 




0560 


064736 








064736 


104406 




4561 








456? 








4563 








4 56'i 








4565 








4566 








4567 








4568 


064740 


012737 


000012 067422' 


4569 


064 746 








064 746 


012727 


000250 




064752 


000000 






064 754 


013727 


002116' 




064 760 


000000 





Ol-FEB-84 18j55 



30* 



CKLOOP 



MOV 


T35BFR*6,R1 


MOV 


R1,R2 


BIS 


0BIT1.R2 


CMP 


R1.R2 


BEQ 


401 


INC 


FATFLG 



ERRHRD ERRNO , T3580T , EXPREC 



40$ 



CKLOOP 

MOV 
MOV 
MOV 



020., R3 
0256, ,T35SZ 
FREE,T35WB 



.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

j PICK UP XSTC 

j SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

I BR, IF EQUAL (OK) 

j ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 

{NUMBER OF RECORDS 

»SET UP RECORD SIZE 

j ADDRESS OF WRITE BUFFER 



j ************************************ **** 

I WRITE DATA.ACK.CVC-1 COMMAND 

; 
I**************************************** 



50$ 



MOV 


0140005. T35PK3 


MOV 


OT35PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


0SSR.R2 


CMP 


R1.R2 


BEQ 


60$ 


INC 


FATFLG 



SEQ 177 



714 

T35RWN 

PKTSSR 

C$CLP1 



C*ERHPD 
715 

T35B0T 
EXPREC 

C$CLP1 



60$ 



ERRHRD ERRNO , T35WDE , PKTSSR 



CKLOOP 



iWRITE OATA.ACK.CVC-l COMMAND 
i SET UP R4 WITH PACKET ADDRESS 
j ISSUE COMMANO 
iWAIT POR SSR TO SET 
jGET TSSR CONTENTS 
,SET UP EXPECTED 
{ARE THEY EQUAL 
{BR, IF OK 

» ERROR COUNT 
I TSSR INCORRECT AFTER WRITE DATA 



j LOOP IF SELECTED 



TRAP 


CIEHHRD 


.WORD 


716 


.WORD 


T35WDE 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



i a*************************************** 

jWAIT F-OR TAPE TO S T OP *>LL MOTION 
j********+#**+************++************* 

70$; 



MOV 
DELAY 



010. ,T35DLY 
250 



\ SET UP DELAY COUNTER 
;WAIT ABOUT ,25 SEC 



MOV 


0250, (PC)* 


.WORD 





MOV 


LSDL1 .(PC)» 


.WORD 






J14 



TEST 1 * 


• HAROWARE TEST 


1-8 TEST MACRO 1 


TEST 7j 


EXTENDED MODE 


FEATURES 




064 762 


005367 


177772 




064766 


001375 






064 770 


005367 


177756 




064774 


001367 




4570 


064776 


005337 


067422' 


4571 


065002 


001361 




457? 


065004 


005737 


002220* 


4573 


065010 


001042 




4574 


065012 


112737 


0O0200 067401 


4575 


065020 


112737 


000010 067400 


4576 


065026 


012704 


067350' 


4577 


065032 


010465 


000000 


4578 


065036 


004737 


016226' 


4579 


065042 


103407 




4580 


065044 


010001 




4581 


065046 


005237 


002214' 


4585 


065052 








065052 


104456 






065054 


001315 






065056 


072302' 






065060 


011736' 




4586 


065062 








0^5062 


104406 




4587 


065064 


012704 


067240' 


4588 


065070 


004737 


010552' 


4589 


065074 


103407 




4590 


065076 


005237 


002214' 


4594 


065102 


010001 




4595 


065104 








065104 


104456 






065106 


001316 






065110 


005046' 






065112 


011724' 




4596 


065114 








065114 


104406 




4597 


065116 


012737 


176750 067422 


4598 


065124 


005037 


067416' 


4599 








4600 








4601 








460? 








4603 








4604 








4605 








4606 


065130 


012737 


142212 067370 


4607 


065136 


012704 


067370' 


4608 


065142 


010465 


000000 


4609 


065146 


016501 


000002 


4610 


065152 


032701 


000200 


4611 


065156 


001021 




4612 


065160 


005237 


067416' 


4615 065164 








065164 


012727 


000001 




065170 


000000 






065172 


013727 


002116' 




0651/6 


000000 






065200 


005367 


177772 



M1113 01-F&B-84 18:55 



DEC 


T35DLY 


8NE 


701 


TST 


EXTFEA 


BNE 


110$ 


MOVB 


0200.T35BS1 


MOVB 


010.T35BS0 


MOV 


0T35PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PCCHKTSSR 


BCS 


90$ 


MOV 


R0.R1 


INC 


FATFLG 


ERRHRD 


ERRN0,T35SSR,PKTSSR 



90$: 



CKLOOP 



MOV 


0T35PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


1001 


INC 


FATFLG 


MOV 


R0,R1 


ERRHRD 


SRRN0.WRTMSG.SFIMSC3 



100$; CKLOOP 



110$: 



MOV 
CLR 



065000., T35DLY 
T35CNT 



DEC 
BNE 
DEC 
BNE 



SEQ 178 



-6(PC) 
. -4 

-22CPC) 
,-20 



jBUMP COUNTER DOWN 

jBR, IF MORE TO DELAY 

iCHECK FOR EXTENDED FEATURES SW SWITCH 

;BR IF SWITCH IS ON 

jWRITE MISCELLANEOUS CONT/READ STATUS 

jFUNCTION SELECTION BIT (TURN ON EXTFEA HW SWITCH) 

jWRITE SU6SYS MEM PACKET 

i ISSUE COMMAND 

I WAIT FOR SSR 

i BR, T F NO ERROR 

i ERROR, SAVE TSSR 

,^RROR COUN'i 
NOT CORRECT AFTER 



;TS 



aR 



!ISC£LLANEOUS 



WRT 

TRAP C$ERHRD 
.WORD 717 
.WORD T35SSR 
.WORD PKTSSR 

iLOOP IF SELECTED 

TRAP C$CLP1 

i SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 
i ERROR COUNT 

tSAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC 



l SCOPE LOOP 

j SET UP DELAY COUNTER 
;DELA^ COUNTER 



FAILED 




TRAP 


C$ERHRD 


.WORO 


718 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



TRAP 



C$CLP1 



{REWIND IMMEDIATE, ACK.CVC-l.IE-1 COMMAND 



I **.*,***,'. a***************** ******# + ♦** + *** 



120$ 



MOV 


0142212, T35PK3 


MOV 


OT35PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


TSSR(R5},R1 


BIT 


0SSR.R1 


BNE 


130$ 


INC 


T35CNT 


DELAY 


X 



jREWINO IMMEDIATE, ACK.CVC-1, IE «1 COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

; ISSUE COMMAND 

{ GET TSSR CONTENTS 

iCHECK FOR SSR SET 

iBR, WHEN SSR IS SET 

iBUMP THE CYCLE COUNTER 

iDELAY TO KEEP COUNTER DOWN 

MOV 01. (PC). 

.WORD 

MOV L$Ol 1 ,(PC)» 

. WORD 

DEC -MPC) 



K14 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 7 j EXTENDED MODE FEATURES 





065204 


001375 






065206 


005367 


177756 




065212 


001367 




4614 


065214 


005337 


067422' 


4615 


065220 


001352 




4616 


065222 


012702 


000200 


4617 


065226 


020102 




4618 


065230 


001406 




4619 


065232 


005237 


002214' 


4623 


065236 








065236 


104456 






065240 


001317 






065242 


072650' 






065244 


011736' 




4624 


065246 








065246 


104406 




4625 


065250 


005737 


002216- 


4626 


065254 


001010 




4627 


065256 


016501 


000002 


4628 


065262 


00^237 


002214' 


4632 


065266 








065266 


104456 






065270 


001320 






065272 


072736' 






065274 


011736' 




4633 


065276 








065276 


104406 




4634 








4635 








4636 








4637 








4638 








4639 








4640 








4641 


065300 


013701 


067270' 


4642 


0653O4 


010102 




4643 


065306 


052702 


000200 


4644 


065312 


020102 




4645 


065314 


001406 




4646 


065316 


005237 


002* 14 « 


4650 


065322 








065322 


104456 






065324 


001321 






065326 


072363' 






065330 


015364' 




4651 


065332 








065332 


104406 




4652 


065334 


013701 


067274' 


4653 


065340 


010102 




4654 


065342 


05270? 


100000 


4655 


065346 


020102 




4656 


065350 


001406 




4657 


065352 


005237 


002214' 


4661 


065356 








065356 


104456 






06536*.' 


001322 






065362 


072552' 





1oO$j 



140$; 



FEB-84 


18;55 






BNE 
DEC 
BNE 


SEQ 179 

, -4 

-22CPC) 

,-20 


DEC 


T35DLY 






j DROP DEAD TIMER BUMP DOWN 




BNE 


1201 






jBR, if more time TO GO 




MOV 


0SSR.R2 






jSET UP EXPECTED 




CMP 


R1.R2 






j ARE THEY EQUAL 




BEQ 


140$ 






j BR, IF OK 




INC 


FATFLG 






» ERROR COUNT 




ERRHRD 


ERRN0.T35RWE 


PKTSSR 


iTSSR INCORRECT AfTER WRITE DATA 










TRAP 


CiERHRD 










.WORD 


719 










.WORD 


T35RWE 










.WORD 


PKTSSR 


CKLOOP 








{LOOP IF SELECTED 

TRAP 


CSCLPl 


TST 


INTRECV 






jCHECK FOR INTERRUPTS 




BNE 


150$ 






iBR, IF INTERRUPTS DETECTED 




MOV 


TSSRCR5) 


Rl 




jGET TSSR STATUS FOR PRINTOUT 




INC 


FATFLG 






j ERROR COUNT 




ERRHRD 


ERRN0.T35NIN 


PKTSSR 


INTERRUPT NOT RECEIVED (BAD) 





150$: CKLOOP 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



{***************/.************************ 

j NOW CHECK FOR THE MOTION BITS SET 

1 

I ********* ******************************* 



160$ 



C$ERHRD 
720 

T35NIN 
PKTSSR 

C$CLP1 



MOV 


T35BFR*6,R1 




(PICK UP XSTO 




MOV 


R1.R2 




iSET UP EXPECTED 




BIS 


*8IT7,R2 




j SET MOT BIT IN EXPECTED 




CMP 


R1.R2 




jDOES EXP • REC'D 




BEQ 


160$ 




iBR. IF EQUAL (OK) 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T35M0T, 


EXPREC 


I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERH«D 
721 

T35M0T 
EXPREC 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


C$CLP1 


MOV 


T35BFR*12.RI 




{PICK UP XST2 




MOV 


R1.R2 




{SET UP EXPECTED 




BIS 


0BIU5.R2 




{SET OPM SIT IN EXPECTED 




CMP 


R1.R2 




{DOES EXP - REC'D 




BFQ 


170$ 




j BR, IF EQUAL (OK) 




INC 


^TFLG 




lErtRQR COUNT 




ERRHRD 


ERRN0.T35OPM 


EXPREC 


}OPM BIT NOT SET 

TRAP 

.WORD 

.WORD 


CSERHRD 
T350PM 



L14 



TEST 1 - 


HARDWARE TEST 


1-8 TEST 


TEST 7: 


EXTENDED MODE 


FEATURES 




065364 


015364' 




4662 


065366 








065366 


104406 




4663 


065370 


012737 


000027 


4664 


065376 








065376 


012727 


000250 




065402 


000000 






065404 


013727 


002116' 




065410 


000000 






065412 


005367 


177772 




065416 


001375 






065420 


005367 


177756 




065424 


001367 




4665 


065426 


005337 


067422' 


4666 


065432 


001361 




4667 


065434 
065434 








065434 


104403 




4668 


065436 


023727 


002214 


4669 


065444 


103402 




4670 


065446 


004737 


017074' 


4671 


065452 






4672 








467.'; 








4674 








4675 








4676 








4677 








4678 








4679 








4680 








4681 








4682 








4683 








4684 








4685 








4686 








4687 








4688 








4689 








4 690 








4691 








4692 








4693 


065452 
06545? 








065452 


104402 




4694 


065454 


004757 


73044' 


4695 


065460 


004 737 


073136' 


4696 


065464 


004737 


073200* 


4697 


0654 70 


004737 


015664 ' 


4698 


065474 


103407 




4699 


0654 76 


005237 


002214' 


4703 


065502 


010001 




4 704 


065504 








065504 


L04455 






065506 


001323 






065510 


003642' 





MACRC M1113 01-FEB-84 I8s55 



067422' 



170): 
175$: 



CKl.OOP 

MOV 
DELAY 



023..T35DLY 
250 



000017 



999$ j 



I ♦ 



DEC 
BNE 
ENDSUB 



CMP 
BLO 
JSR 



T35DLY 
175$ 



FATFLG.015. 

999$ 

PC.CKDROP 







SEQ 180 




. WORD 


EXPREC 


jLOOP IF SELECTED 








TRAP 


C$CLP1 


j SET UP DELAY COUNTER 






♦START DELAY 








MOV 


^250, (PC)* 




. U'ORD 







MOV 


L$DLY,(PO* 




.WORD 







DEC 


-6CPC) 




BNE 


. -4 




DEC 


-22CPC) 




BNE 


.-20 



iBUMP DELAY COUNTER 
j BR, IF MORE DELAY 



L 10065: 

TRAP 
j IS ERROR COUNT AT 25 
l BR, IF LESS THAN 25 
: TRY TO DROP THE UNIT 



c$Esue 



TEST 7, SUBTEST 3 



VERIFIES THAT THE NON- TAPE -MOT ION COMMAND GET STATUS, ISSUED 
IMMEDIATATELY AFTER TERMINATION OF A REWIND WITH IMMEDIATE 
INTERRUPT COMMAND, TERMINATES PROPERLY AND PROVIDES PROPER 
STATUS. FIRST, A NUM9ER OF DATA RECORDS ARE WRITTEN FROM BOT, 
THEN THE REWIND WITH IMMEDIATE INTERRUPT COMMANO IS ISSUED AND 
TERMINATION VERIFIED. THEN THE GET STATUS COMMAND IS ISSUI'D, 
THE GET STATUS SHOULD TERMINATE ALMOST IMMEDIATELY AND SHOW 
MOT-1 AND OPM-1 IN THE M*;S.,AGE BUFFER, AFTER A DELAY LONG 
ENOUGH TO ALLOW THE REWIND TO COMPLETE AND THE TAPE COME TO 
REST, GET STATUS IS AGAIN ISSUED AND TH£ STATUS CHECKED,' BOTH 
MOT AND OPM SHOULD BE CLEAR. 



BGNSUB 



)>>>>>>>>>>>> 



>>>>>>>> >>*> 



JSR 


PC.T35REST 


JSR 


PC.T35RT2 


JSR 


PC.T35RT3 


JSR 


PC.SOFTNIT 


BCS 


20$ 


INC 


FATFLG 


MOV 


R0,R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



BEGIN SUBTEST 
T7.3: 

TRAP CJBSUB 
iSET COMMAND PACKET 
I SET UP OTHER COMMAND PACKET 
jSET UP OTHER COMMAND PACKET 
jDO INITIALIZE ON CONTROLLER 
l BR IF INIT WAS OK 

I ERROR COUNT 
{CONTENTS OF TSSR REGISTER 
(FATAL ERKUR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 723 
.WORD SF1ERR 



M14 



TEST 1 - 
TEST 7: 


HARDWARE TF£T 1-8 TEST 
EX1ENDED MODE FEATURES 




065512 


011724' 




4705 


065514 


013737 


002174* 


4 706 


065522 


012704 


067240' 


4707 


065526 


004737 


010552* 


4708 


065532 


103407 




4 709 


065534 


005237 


002214' 


1712; 


065540 


010001 




4/14 


065542 








065542 


104456 






065544 


001324 






065546 


005046' 






065550 


011724' 




4715 


065552 








065552 


104406 




4716 


065554 


004737 


010704* 


4717 


065560 


103411 




471C 


065562 


010004 




4719 


065564 


016501 


000002 


4 720 


065570 


005237 


002214* 


4724 


0655/4 








065574 


104456 






065576 


001325 






065600 


070524' 






0t r >602 


011736* 




4725 


063604 








065604 


104406 




4726 


065606 


013701 


067270* 


472/ 


065612 


oioior? 




4728 


065614 


052702 


000002 


4 729 


065620 


020102 




4730 


065622 


001406 




4731 


065624 


005237 


002214* 


4735 


065630 








CC5630 


104456 






065632 


00132b 






065634 


O7022O 1 






065636 


015364' 




4736 


065640 








065640 


104406 




4737 


065642 


012703 


000024 


4 738 


065646 


013737 


003116* 


4739 








4740 








4741 








4742 








4/43 








4744 








4745 








4746 


065654 


012737 


140005 


4747 


065662 


012704 


Oo7370' 


4/48 


065666 


010300 




4749 


065670 


004737 


017314* 


4750 


065674 


010337 


067376' 


4/51 


065700 


010465 


OCOOOO 


4752 


065704 


004737 


016140' 


4 753 


065710 


016501 


000002 


4754 


065714 


012702 


000200 



067260' 20$ 



01-FEB- 


84 


18:55 


MOV 
MOV 
JSR 
BCS 
INC 
MGV 
ERRHRO 


UNITN.T35DSW 

#T35PACKET,R4 

PC.WRTCHR 

23$ 

FATFLG 

R0.R1 

ERRNO.WRThSG.SFIMSG 



23$; 



30$ 



CKLOOP 

JSR 
BCS 

MOV 
MOV 
I.xC 
ERRHRD 



CKLOOP 



PC, REWIND 
30$ 
R0,R4 

r SSR(R5),Rl 
FATFLG 
ERRNO.T35RWN.PKTSSR 



MOV 


T35BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0.T35B0T.EXPREC 



40$ 5 



067372 



CKLOOP 

MOV 
MOV 



020, ,R3 
FREE.T35WB 



SEQ 181 



.WORD SFIMSG 
j SET UP UNIT NUMBER IN PACKET 
j SUBROUTINE NEEDS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 
»BR, IF COMMAND ISSUED OK 

j ERROR COUNT 
;SAVE CONTENTS OF TSSR 
j WRITE CHARACTERISTIC 



FAILED 




TRAP 


C$ERHRD 


WORD 


724 


.WORD 


URTM3G 


.WORD 


SFIMSG 



jLOOP IF SELECTED 

TRAP 
{CALL TAPE REWIND COMMAND 
;BR, IF NO PROBLEM 
j SET UP REWIND PACKET ADDRESS 
{GET CONTENTS FOR CALL 

j ERROR COUNT 
{REWIND NOT ACCEPTED 



TRAP 



.-LOOP IF SELECTED 

{PICK UP XSTO 

{SET UP EXPECTED 

;SET BOT BIT IN EXPECTED 

{DOES EXP - REC'C 

iBR, IF EQUAL (OK) 

j ERROR COUNT 

{TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
. WORD 
.WORD 



{LOOP ir SELECTED 



STARTING 
STARTING 



RECORD SIZE 
WRITE BUFFER 



TRAP 
ADDRESS 



j**************************************** 

i 

{WRITE DATA.CVC-l.ACK COMMAND 



|**** + + + *****4i* **************** + * + *.*.** + + * 



067370* 65$: 



MOV 


0140005, T35PK3 


MOV 


0T35PK3.R4 


MOV 


R3.R0 


JSR 


PC.FILLMEM 


MOV 


R3.T35SZ 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 



C$CLP1 



TRAP 


C$ERHRD 


.WORD 


725 


.WORD 


T35RWN 


.WORD 


PKTSSR 



C$CLP1 



C$ERHRD 
726 

T3SBJT 
EXPREC 

C$CLP1 



{WRITE DATA,CVC-1,ACK COMMAND 
{SET UP R4 "ITH PACKET ADDRESS 
{SET PATTERN IN COIWrT REGISTER 
{FILL MEMORY WITH RECORD SI2E 
{SET UP RECORr SI2E IN PACKET 
{ISSUE COMMANJ 
{WAIT FOR SSR TO SET 
{GET TSSR CONTENTS 
{SET UP EXPECTED 



N14 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 7; EXTENDED MODE FEATURES 



01-FEB-84 16:55 



SEQ 182 



4755 


065720 


020102 




4756 


065722 


001406 




4757 


065724 


005237 


002214' 


4761 


065730 








065730 


104456 






065732 


oo:.:27 






065734 


071060' 






065736 


011736' 




4762 


065740 








065740 


104406 




4763 








4 764 








4765 








4 766 








4767 








4768 








4/69 








4770 


065742 


012737 


141005 


4771 


065750 


010465 


000000 


4772 


065754 


004737 


016140' 


4773 


065760 


016501 


000002 


47 74 


065764 


012702 


000200 


4^75 


065770 


020102 




4/76 


065772 


001406 




4777 


065774 


005237 


002214' 


4781 


066000 








066000 


104456 






066002 


001330 






066004 


072125' 






066006 


011736' 




4782 


066010 








066010 


104406 




4783 


066012 


005723 




4 784 


06601 . 


020327 


0OCO52 


4785 


066020 


001315 




4786 


066022 


004737 


010704 ' 


4/87 


066026 


103411 




4788 


066030 


010001 




4789 


066032 


016501 


000002 


4 790 


066036 


005237 


002214' 


4794 


066042 








06604 2 


10<456 






066044 


001331 






066046 


070524' 






066050 


015364' 




4795 


066052 








066052 


104406 




4796 


066054 


013701 


067270' 


4797 


066060 


010102 




4/98 


066062 


052 702 


000002 


4 799 


066066 


020102 




4800 


066070 


001406 




4801 


066072 


005237 


002214* 


4805 


066076 








066076 


104456 






066100 


001332 






066102 


070220* 





80$: 



CMP Rl, R2 

BEQ 80* 

INC FATFLG 

ERRHRD ERRN0.T35WDC, PKTSSR 



CKLOOP 



{ARE 


THEY EQUAL 








|BR, 


IF OK 

jERROR I 


:ount 






jTSSP 


\ INCORRECT 


AFTER 


WRITE DATA 








TRAP 


CJERHRO 








.WORD 


727 








.WORD 


T35WDC 








.WORD 


PKTSSR 



{LOOP IF SELECTED 



TRAP 



CSCLP1 



WRITE DATA RETRY ,CVC»1, AUK COMMAND 



MOV 


>. 141005, T35PK3 


1 


MOV 


R4, rSDB(R5) 


1 


JSR 


PC.WAITF 


} 


MOV 


TSSRCR5),R1 




MOV 


*SSR,R2 


; 


CMP 


R1.R2 


• 


BEQ 


90$ 


; 


INC 


FATFLG 




ERRHRD 


ERRN0.T35WRF, PKTSSR 


• 



WRITE OATA RETRY ,CVC»1 , ACK COMMAND 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

{ERROR COUNT 
TSSR INCORRECT AFTER WRITE DATA RETRY 



90$: 



230$: 









TRAP 


C$ERHRD 








.WORD 


728 








.WORD 


T35WRF 








.WORD 


PKTSSR 


CKLOOP 




;L00P IF SELECTED 


TRAP 


CtCLPl 


TST 


(R3)» 


;BUMP RECORD SIZE COUNTER 




CMP 


R3.042. 


;AT 42 SIZE YET 






BNE 


65$ 


1 BR, IF MORE RECORDS TO 


URITE 




JSR 


PC, REWIND 


;CALL TAPE REWIND COMMAND 




9CS 


230$ 


;BR. IF NO PROBLEM 






MOV 


R0.R1 


{SAVE TSSR 






MOV 


TSSR(R5),R1 


{GET TSSR CONTENTS 






INC 


FATFLG 


jERROR COUNT 






ERRHRD 


ERRN0.T35RWN, EXPREC 


{REWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
729 

T35RWN 
EXPREC 


CKLOOP 




j LOOP TF SELECTED 


TRAP 


C5CLPI 


MOV 


T35BFR*6,R1 


j PICK UP XSTO 






MOV 


R1.R2 


{SET VP EXPECTED 






BIS 


*eiu,R2 


»SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


{DOES EXP - REC'D 






BEQ 


240$ 


}BR, IF EQUAL (OK) 






INC 


rATFLG 


{ERROR COUNT 






ERRHRD 


ERRN0.T35B0T .EXPREC 


{TAPE NOT AT BOT AFTER 


REWIND 





TRAP 
.WORD 
♦ WORD 



C$ERHPD 

730 
T35B0T 



B15 



TEST 
TEST 



4606 

4807 
4806 
4009 
4810 
4811 
4B1? 
4813 
4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
482? 
4823 
4824 
4825 
4826 
4827 
4831 



4832 

4833 
4834 
4835 
4856 
4837 

4838 
4839 
4540 

4641 
4845 



4646 

4647 
1648 
4649 
4850 
4851 
4652 
4853 
4854 

4855 



HARDWARE TEST 1-8 TEST MACRO 
EXTENOED MODE FEATURES 



M1113 01-FEB-84 18}55 



066104 
066106 
066106 
066110 
066*14 



066122 
066130 
066134 
066140 
066144 
066150 
066154 
066160 
066164 
066170 
06617? 
066174 
066200 
066200 
066202 
066204 
066206 
066210 
066210 
066212 
066216 
066220 
066224 
066226 
066230 
066232 
066254 
066236 
066242 
066242 
066244 
066246 
066250 
066252 
066252 
066254 
066256 
066260 
066262 
066264 
066266 
066272 
0662 74 
0662 74 
066276 



0153o4» 

104406 

012703 
013737 



000024 
003116 



067372' 



240$) CKLOOP 

MOV 
MOV 



#20,.R3 

FREE.T35RB 



lLOOP IF SELECTED 



I STARTING RECORD SIZE 

I STARTING READ BUFFER ADDRESS 





SEQ 183 


.WORD 


EXOREC 


TRAP 


CfCLPl 



READ DATA.ACK COMMAND 



012737 100001 067370' 265*1 

012704 067370' 

012700 177777 

0O4737 017314' 

010337 067376' 

010465 000000 

0O4737 016140' 

016501 000002 

012702 000200 

020102 

001406 

005237 002214' 



104456 
001.333 
067512' 
011736' 

104406 
013702 
010304 
162704 
L 60204 
021403 
001410 
011401 
010302 
005237 

104456 
001334 
072205' 
015364' 

104406 
005 724 
160204 
020403 
001360 
005725 
020327 
001313 

1Q44Q6 



MOV 0100001 .TSiPKS 

MOV OT35PK3.R4 

MOV #177777, RO 

JSR PC.FILLMEM 

MOV R3.T35SZ 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV #SSR,R2 

CMP R1.R2 

BEQ 2601 

INC FATFLG 

ERRMRD ERRN0,T35RDF\PKTSSR 



jREAD DiUA.ACK COMMANO 

i SET UP ftfl WITH PACKET ADDRESS 

iSET PATTERN IN CORRECT REGISTER 

iFILL MEMORY WITH RECORD SUE 

i SET UP RECORD SIZE IN PACKET 

t ISSUE COMMANO 

iWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

l ARE THEY EQUAL 

»Bf\ IF OK 

i ERROR COUNT 
I TSSR INCORRECT AFTER READ DATA 



003116' 
000024 



280$ I 



285$; 



002214 







TRAP 


C$ERHRD 






.WORD 


731 






.WORD 


T35RDF 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


FREF.R2 


iGET BUFFER ADDRESS 




MOV 


R3.R4 


iGET RECORD SIZE 




sue 


•20. ,R4 


jPOINT BACK TO 1ST RECORD 




ADD 


R2.R4 


iPOINT TO 1ST LOC IN BUFFER 




CMP 


(«4) ( R3 


lOATA WRITTEN • READ 




BEQ 


290$ 


|BR, IF DATA OK (GOOO^ 




MOV 


04),R1 


iPICK UP BAD DATA 




MOV 


R3,R? 


iSET UP EXPECTED 




INC 


FATFLG 


lERROR COUNT 




ERRMRD 


ERRN0>T35DTA,EXPREC 


jDATA IN BUFFER NOT CORRECT 

TRAP 


C$FRHRD 



290$ i CKLOOP 



000050 





TST 


(R4)» 




SUB 


R2.R4 




CMP 


R4.R3 




BNE 


2651 




TST 


(R3). 




CMP 


R3,040v 




ONE 


265* 


300$ i 


CKLQQF- 




450$ i 











TRAP 


C$FRHRD 






.WORD 


732 






.WORD 


T350TA 






.WORD 


EXPREC 


IF 


SELF.CTEO 










TRAP 


CJCLP1 


TO 


NF.XT ADDRESS 






TO 


RECORD SUE 







lLOOP 

jBUMP 

I BACK 

I AT END OF RECORD >ET 

jBR. IF MORE DATA TO CHECK 

iBUMP RECORD SIZE 

iDONE >ET 

4 BR, IF NOT DONE t£T (K3PE READS) 

jLQOP IF SELECTED 

TRAP CJCLPi 



M\ l /= mm m hhm macro miu3 oi - feom i8 < 55 



C15 



SEQ 184 



4856 



4857 
4858 
4859 

4860 
4861 
4862 
4865 
4864 
4865 
4866 
4867 
4868 
4869 
4670 
4871 
4872 
4873 
4874 



4875 
4876 
4877 
4878 
4879 
4880 
4881 



4882 
4883 
4884 
4888 
1889 



4890 
4891 
Aei2 
4893 
4894 
489« 
4699 



mi 

066276 
066300 
066306 
066310 
066314 



066314 
066314 
066314 
066316 
066322 
066326 
CK/332 
066340 
066344 
066346 
066346 
066352 
066 3M 
066.360 
066362 
066366 
066370 
066374 
066376 
066402 
066404 
066410 
066412 
066412 
066414 
066416 
066420 
066422 
066430 
0664 34 
066440 
066442 
066446 
0664 50 
066450 
066452 
066454 



104403 

023727 
103402 
00473? 



104402 
004737 
0O4 73 7 
004737 
012737 
00473/' 
103426 



002214* 000017 
017074' 



999 5; 



ENDSUB 



CMP 
BLO 
JSR 



FATFLG ( $15, 
9991 

PCCKDROP 



,>>>>>>>>>>>> fcND SUBTEST 

L 100661 

TRAP 

lIS ERROR COUNT AT 25 
»BR, IF LESS THAN 25 
I TRY TO DROP THE UNTT 



c$esub 



073044' 

073136' 

073200* 

176750 

015*<64' 



012727 000250 

000000 

013727 002116' 

000000 

005367 177772 

001375 

005367 177756 

001367 

0O5337 067422' 

001356 

0O5237 002214' 

010001 



104455 

001335 

003642' 

011724' 

013737 

012704 

0O4737 

103407 

005237 

010001 



002174' 
067240 1 
010552' 

002214' 



TEST 7, SUBTEST 4 



VERIFIES Tr.AT A TAPE-MOTION COMMAND (READ, WRITE, POSITION), 
ISSUED IM*£DIATATELY AFTER TERMINATION OF A REUINO WITH 
IMMEDIATE INTERRUPT COMMAND, IS "QUEUED" BY THE CONTROLLER AND 
THEN EXECUTES PROPERLY, 



BGNSU8 



067422' 



10$: 



JSR 


PC.T35REST 


JSR 


PC, T35R T2 


JSR 


PC.T35RT3 


MOV 


•65000. , T35DLY 


JSR 


PCSOFINIT 


BCS 


20$ 


DELAY 


250 



OIC 


T350LY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


bRRNO.SFIERR.SFIMSG 



067260* 201 i 



104456 
001556 
005046 



MOV 


UNITN.T350SW 


MOV 


0TS5PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


23$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



!>**>>> >»)>-» 



*>•»>>>>>*>>> 



BEGIN SUBTEST 
TV. 4: 

TRAP C$BSUB 

,SET COMMAND PACKET 

I SET UP OTHER CCXtlANO PACKET 

iScT UP OTHER COMMAND PACKET 

iSET UP DELAY COUNTER 

lOO INITIALIZE ON CONTROLLER 

|BR IF INIT WAS OK 

iDELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

iBUMP COLHTER 

jBR, V COUNTER NOT DONE 
lERROR COUNT 

iCONTENTS OF TSSR REGISTER 

iFATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 7 53 
.WORD SFIERR 
.WORD SFIMSG 

jSET UP UNIT (DRIVE > NUMBER 

iSUBROUTINE NEFDS PACKET AODRESS 

I ISSUE WRITE CHARACTERISTICS 

iBR. IF COMMAND ISSUED OK 
iFRROR COUNT 

l SAVE CONTCNTS OF TSSR 

IWRXTE CHARACTERISTIC 



0250, (PC)- 



L$0!_t.(PC)* 



•6(PC) 

, 4 

-22CPC) 

.-20 



FAILED 




TRAP 


C*f RHPQ 


.WORD 


.'?4 


.WORD 


WRTMSG 



m\ l 7i wwm mi khm macro muij oi-febm i 6 .ss 



D15 



SEQ 185 



066456 


011724* 












.WORD 


SFIMSG 


4900 066460 






23$ j 


CKLOOP 






jLOOP IF SELECTED 




066460 


104406 












TRIP 


C$CLP1 


4901 066462 


004 757 


010704 




JSR 


PC, REWIND 




I CALL TAPE REWIND COMMAND 




4902 066466 


105411 






BCS 


30$ 




1 BR, IF NO PROBLEM 




4903 0664 70 


016501 


000002 




MOV 


TSSR(R5),R) 




iGF.T TSSR CONTENTS 




4904 0664 74 


010004 






MOV 


R0,R4 




(GET PACKET ADDRESS 




4905 0664 76 


005237 


002214' 




INC 


FATFLG 




I ERROR COUNT 




4909 066502 








ERRHRD 


ERRN0,T35RWN, 


PKTSSR 


I REWIND NOT ACCEPTED 




06650? 


104456 












TRAP 


C$ERHRD 


066504 


001357 












.WORD 


735 


066506 


70524' 












.WORD 


T35RWN 


066510 


011756* 












.WORD 


PKTSSR 


4910 066512 






30$; 


CKLOOP 






lLOOP IF SELECTED 




066512 


104406 












TRAP 


CfCLPl 


4911 066514 


015701 


067270' 




MOV 


T35BFR»6,Rl 




jPICK UP XSTO 




4912 066520 


010102 






MOV 


R1.R2 




I SET UP EXPECTED 




4913 066522 


052702 


000002 




BIS 


*em,R2 




iSET BOT BIT IN EXPECTED 




4914 066526 


020102 






CMP 


R1.R2 




iDOES EXP - REC'D 




4915 066530 


001406 






BEQ 


40$ 




iBR, IF EQUAL (OKj 




4916 066532 


005237 


002214' 




INC 


rATFLG 




i ERROR COUNT 




4920 066556 








ERRHRD 


ERRNO.T35BOT, 


,EXPREC 


jTAPE NOT A^ BOT AFTER REWINO 




066556 


104456 












TRAP 


CiERHRD 


066540 


001540 












.WORD 


7 56 


066542 


070220' 












.*JORD 


T55B0T 


066544 


015564' 












.WORD 


EXPREC 


4921 066546 






40$; 


CKLOOP 






jLOOP IF SELECTED 




066546 


104406 












TRAP 


C$CLP1 


4922 066550 


012703 


000024 




MOV 


♦20, ,R3 




iSTARTI^G RECORD SIZE 




4925 066554 
4924 


013737 


003116' 067372' 


MOV 


FREE.TS5WB 




i STARTING WRITE BUFFER ADDRESS 




4925 






j*** ******«#*♦«##*** ******#*****#******** 




4926 






i 












402? 






jWRITE 


DATA.CVC 


-LACK COMMAND 






4928 






I 












4929 


















4930 














4931 066562 


012757 


140005 067370' 65$: 


MOV 


0140005, T55PK3 


iWRI T E DATA.CVC-l.ACK COMMANO 




4952 066570 


012704 


067370' 




MOV 


OT35PK3.R4 




iSET UP R4 WITH PACKET ADDRESS 




4953 066574 


010500 






MOV 


R3.R0 




l SET PATTERN IN CORRECT REGISTER 


4934 066576 


004757 


017314' 




JSR 


PC.. T ILLMEM 




jFILL MEMORY WITH RECORD SIZE 




4955 066602 


010557 


067376' 




MOV 


R3.T35SZ 




LET UP RECORD SIZE IN PACKET 




4S36 066606 


010465 


OOCOOO 




MOV 


R4,TSDB(R5) 




l ISSUE COMMANO 




4937 066612 


0O4757 


016140' 




JSR 


PC.WAITF 




iWAIT FOR SSR TO SET 




4938 066616 


016501 


00000? 




KOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 




4939 066622 


012702 


000200 




MOV 


*SSR,R2 




iSET UP EXPECTED 




4940 066626 


020102 






CMP 


R1.R2 




,ARE THEY EQUAL 




4941 066630 


001406 






BEQ 


80$ 




|B«, IF OK 




4942 066632 


005257 


002214' 




INC 


FATFl.C 




.ERROR COL^T 




4946 066636 








ERRHRD 


E.RRN0.T55W0C. 


, PKTSSR 


jTSSR INCORRECT AFTER WRITE DATA 


066656 


104456 












TRAP 


CiERHRD 


066640 


001341 












.WORD 


73/ 


066642 


071060' 












.WORD 


T35WDC 


066644 


011736' 












.WORD 


PKTSSR 


494 7 066646 






80$; 


CKLOOP 






I LOOP IF SELECTED 




U66646 


104406 












TRAP 


CiCLPl 


4**a 



















E15 



TEST 1 
TEST 7 ; 


HARDWARE TEST 
EXTENDED MODE 


khM mcno ' 


4949 








4950 








4951 








4952 








4953 








4954 








4955 


066650 


012737 


111005 067370' 


4956 


066656 


010465 


000000 


4957 


066662 


0O4 73? 


016140' 


4958 


066666 


016501 


000002 


4959 


066672 


012702 


000200 


4960 


066676 


020102 




4961 


066700 


001406 




4962 


066702 


005237 


002214' 


4966 


066706 








066706 


104456 






066710 


001342 






066712 


072125' 






066714 


015364' 




4967 


066716 








066716 


104406 




4968 


066720 


005723 




4969 


066722 


020327 


000052 


4970 


066726 


001315 




4971 


066730 


004737 


010704' 


497J 


066754 


103411 




4973 


066736 


016501 


000002 


4974 


066742 


010004 




4975 


0667*4 


005237 


002214' 


4979 


066750 








066750 


104456 






066752 


001343 






066754 


070524' 






066756 


011736' 




4930 


066760 








066760 


104406 




4981 


066762 


013701 


067270' 


4982 


066766 


0101C2 




4983 


066770 


052 702 


000002 


4984 


066 774 


020102 




4985 


066776 


001406 




4'>*6 


067000 


005237 


002214' 


4990 


067004 








067004 


104456 






067006 


001344 






067010 


070220' 






067012 


015364' 




4991 


06/014 








067014 


104406 




4992 


067C16 


012703 


oooo;m 


4993 


067022 


013737 


003116' 067372 


49<M 








4995 








4996 








4997 








4998 








4999 









13 01 -FEB 84 16 i 55 



SEQ 186 



{WRITE DATA RETRY ,ACK, SWB"1 COMMAND 

i 



90*5 



230$: 



MOV 


♦111005. T35PK3 


I WRITE DATA RETRY, ACK, 


,SWB«1 COMMAND 


MOV 


R4.TSDBCR5) 




1 ISSUE COMMAND 






JSR 


PC.WAITF 




jWAIT FOR SSR TO SET 






MOV 


TSSR(R5),Ri 




iGET TSSR CONTENTS 






MOV 


♦5SR.R2 




»SET JP EXPECTED 






CMP 


R1.R2 




lARE THEY EQUAL 






BEQ 


90$ 




|BR, IF UK 






INC 


FATFLG 




; ERROR COUNT 






ERRHRD 


ERRN0,T35WRF ( 


( EXPREC 


, TSSR INCORRECT AFTER 


WRITE OATA RETRr 










TRAP 


CIERHRD 










.WORD 


738 










.WORD 


T35WRF 










.WORD 


EXPREC 


CKLOOP 






jLQOP IF SELECTED 


TRAP 


C$CLP1 


TST 


(R3)* 




iSUHP RECORD SUE COUNTER 






CMP ft 3, 042, 


jAT 42 SIZE YET 






BNE 


65$ 




iDR, IF MORE RECORDS 1 


ro WRITE 




JSR 


PC, REWIND 




,CALL TAPE REWIND COttMANO 




BCS 


2301 




|BR, IF NO PROBLEM 






MOV 


TSSR(R5),R1 




jGET TSSR CONTENTS 






MOV 


R0.R4 




,GET PACKET ADDRESS 






INC 


FATFLG 




i ERROR COUNT 






ERRHRD 


ERRNQ.T35RWN, 


, PKTSSR 


jREWIND NOT ACCEPTED 


TRAP 
.WORD 
.WORD 
,WOPO 


C$ERHRD 
739 

T35RWN 
PKTSSR 


CKLOOP 






jLOOP IF SELECTED 


TRAP 


C$CLP1 


MOV 


T35BFR»6,R1 




{PICK up XSTO 






MOV 


R1,R2 




;SET UP EXPECTLD 






BIS 


•BIT1,R2 




jSET BOT BIT IN FXPECTED 




CMP 


R1.R2 




iDOES EXP • REC'D 






3EQ 


240$ 




iBR, IF EQUAL COK") 






INC 


FATFLG 




l ERROR COUNT 






ERRHRD 


ERRN0,T35B0T 


.EXPREC 


iTAPE NOT AT BOT AFTER REWIND 












TRAP 


CJERHRD 










.WORD 


740 










.WORD 


T35B0T 










.WORD 


EXPREC 


CKLOOP 






jLOOP IF SELECTED 


t;-mp 


C$CLP1 


MOV 


♦20. ,R3 




iSTARUNG RECORD SUE 






MOV 


FREE.T35RB 




, STARTING READ BUFFER 


ADDRESS 





240$; 



t **4**4 + ***** + *** + ^**t*****>**4******* + *t« 

J 

,READ DATA, ACK COMMAND 

J 

j 4 ******** '**#****4'.#****#< ! * ***' .^#* ***** *** 



Fl c 



j> 



TEST 1 


HARDWARE TEST 


JeStuEIs 


TEST 7; 


EXTENDED MODE 


5000 








5001 


067030 


012737 


100001 


5002 


067036 


012704 


067370' 


5003 


067042 


010337 


067376' 


5004 


067046 


010465 


000000 


5005 


067052 


004737 


016140' 


5006 


06 7056 


016501 


000002 


5007 


067062 


012702 


000200 


5008 


067066 


020102 




5009 


067070 


001406 




5010 


06707.? 


005237 


002214" 


5014 


067076 








067076 


104456 






067100 


001345 






067102 


067512' 






067104 


011736' 




5015 


067106 








067106 


104406 




5016 


067110 


013702 


003116' 


5017 


067114 


010304 




5018 


067116 


162704 


000024 


5019 


067122 


060204 




5020 


067124 


000303 




5021 


067126 


021403 




5022 


067130 


001410 




5023 


067132 


011401 




5024 


067134 


010302 




5025 


067156 


005237 


002214' 


5029 


067142 








067142 


104456 






067144 


0O1346 






067146 


072205' 






067150 


015364- 




5030 


067152 








067152 


104406 




5031 


067154 


005724 




[3032 


067156 


160204 




5033 


067160 


OOO303 




5034 


067162 


020403 




5035 


067164 


001356 




5036 


067166 


005723 




50J.7 


067170 


020327 


000050 


5038 


067174 


001315 




5039 


067176 








067176 


104406 




5040 


067200 
067200 








067200 


104 -103 




5041 


067202 


023727 


002214' 


5042 


067210 


103402 




5043 


067212 


004737 


017074' 


5044 


067216 






5045 








5046 








504 7 








5048 


067216 


004 737 


016350' 


5049 


067222 


103002 





SEQ 187 



067370* 265$: 



280*: 



285$: 



MOV 


♦100001. T35PK3 


jREAO DATA.ACK COMMAND 




MOV 


OT35PK3.R4 


jSET UP R4 WITH PACKET MOORE 5S 




MOV 


R3.T35SZ 


jSET UP RECORD SIZE IN PACKET 




MOV 


R4.TSDBCR5) 


i ISSUE COMMAND 




J5R 


PC.WAITF 


iWAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 


»GET TSSR CONTENTS 




MOV 


0SSR.R2 


»5ET UP EXPECTED 




CMP 


R1.R2 


,ARE THEY EQUAL 




BEG 


2301 


,BR, IF OK 




INC 


FATFLG 


I ERROR CVUNT 




ERRHRD 


ERRN0.T35RDF.PKTSSR 


}TSSR INCORRECT AFTER READ DATA 








TRAP 


CIEWHRD 






.WORD 


741 






.WORD 


T35RDF 






.WORD 


PKfSSR 


CKLOOP 




jLOOP IF SELECTED 








TRAP 


C$CuPl 


MOV 


F1EE.R2 


iGET BUFFER ADDRESS 




MOV 


R3.R4 


iGET RECOmD SIZE 




sue 


#20., R4 


jPOINT BACK TO 1ST RECORD 




AOD 


R2,R4 


iPOINT TO 1ST LOC IN BUFFER 




SWAB 


RJ 


jSWAP BYTES SWB-1 ETC. 




CMP 


(R4) t R3 


iDATA WRITTEN • READ 




BEQ 


290$ 


jBR, IF DATA OK CGOOD) 




MOV 


(R4),R1 


,PICK UP BAD DATA 




MOV 


R3.R2 


j SET UP EXPECTED 




INC 


FATFLG 


t ERROR COUNT 




ERRHRD 


ERRN0.T35DTA,EXPRf.C 


iDATA IN BUFFER NOT CORRECT 








TRAP 


CIERHRO 



290$ { CKLOOP 



300$: 



000037 



999$: 

J 
J 



ENDSUB 



CMP 
BLO 
JSR 



I LOOP IF SFLECTED 



.WORD 
.WORD 
.WORD 

TRAP 



742 

T350TA 

EXPREC 

ClCLPl 



1ST 


(R4). 


SUB 


R2,R4 


SWAB 


R3 


CMP 


R4.R3 


BNE 


2A r >* 


TST 


CR3)» 


CMP 


RS,d40. 


BNE 


265$ 


CKLOOP 





YET 

TO CHECK 



(MORE READS) 



JSR 
BCC 



FATFLG.015. 

999$ 

PC.CKDROP 



PC TSTLOOP 
163$ 



I BUMP TO NEXT ADDRESS 
,BACK TO RECORD SIZE 
,PUT R3 BACK INTO SHAPE 
j AT END OF RECORD 
jBR, IF MORE DATA 
j BUMP RECORD SIZE 
l DONE YET 

idR. IF NOT 00N£ YET 
{LOOP IF SELECTED 

TRAP C$CLP1 

END SUBTEST »»>»*>»**»»» 
L10O67; 

TRAP C5ESU6 

iIS ERROR COUNT AT 25 
jBR, IF LESS THAN 25 
» TRY TO DROP THE UNIT 



jDO WE NEED TO ITERATE TEST 
I OR, IF NO LOOP REQUIRED 



) i > i n > i i i n 



TEST 1 - 


HARDWARE TEST 


TEST 7: 


EXTENDED MODE 


5050 


067224 


000137 


5051 


067230 






C67230 


104432 




067232 


003770 


5052 






5053 






5054 






5055 






505? 


067234 




5059 


067240 




5060 


067240 


100004 


5061 


067242 


067250 


5062 


067244 


000000 


5063 


067246 


000012 


5064 


067250 




5065 


067250 


067262 


5066 


067252 


000000 


5067 


067254 


000024 


5068 


067256 


OOOOCO 


5069 


067260 


000000 


5070 


067262 




50/1 






5072 






5073 






5075 


067344 




5077 


067350 




5078 


067350 


IOC 006 


5079 


067352 


067400 


5060 


067354 


000000 


5091 


067356 


000006 


5082 






5084 


067360 




5086 


067370 




5087 


067370 


100005 


5088 


067372 




5089 


067372 


003116 


5090 


067374 


000000 


50'- 1 


067376 


000000 


5092 






5093 






5094 






5095 






5096 


067400 




5097 


067400 


010 


5098 


067401 


200 


5099 


067402 


oooooo 


5100 


C&7404 


000000 


5101 






5102 






5103 






5104 






5105 






5106 


06 7406 


100205 


510? 


067410 


100605 


5108 


067412 


io2eos 


5109 


06*414 


177777 


5110 







f"e§tu£Is 



G15 



MACRO M1113 01-FEB-84 18j55 



163$; 



} * 



JMP 
EXIT 



T3?L0UP 
TST 



lLOCAL STORAGE FOR THIS TEST 
i - 



.BLKB 


10-<.-T 


TKPACKET: 




.WORD 


100004 


.WORD 


T35DATA 


. WOrtP- 





,WORD 


10. 


T35DATA; 




.WORD 


T35BFR 


.WORD 





.WORD 


20. 


.WORD 





T35DSW: .WORD 





T35BFR: ,BLKW 


25. 



j WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T35PK2: 



,BLKB 10-<. -TSV2£7> 



. JORD 
.WORO 
.WORD 
.WORD 

,BLKB 

.WORD 

.WORD 
.WORD 
.WORD 
.EVEN 



100006 

T35BF2 



6. 

10~<. -TSV2£7> 

100005 

FREE 







T35PK3: 

T35RB; 
T35WB: 

T35SZ: 

i 
i 

T35BF2: 

T35BS0: .BYT* io 
T35BS1; .BYTE 200 
T35S2: .WORD 
T35S3; .WORD 

; 
I 

.EVEN 
i TAPE MOTION PACKET COMMAND VALUES 



T35RN; 
I 35WDR : 
T35C0N; 



.WORD 
.WORD 
. WORD 
.WORD 



100205 
100605 
102205 
177777 



SEQ 168 



I EXECUTE AGAIN 






j ALL DONE THIS TEST 








TRAP 


CIFXIT 




.WORD 


L 10063- 



j COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH 

i ADDRESS OF CHARACTERISTICS BLOCK 

iSTARTING VALUE OF BLOCK SIZE 
, CHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

.SELECT DRIVE 
j MESSAGE BUFFER 



ACK 



i WRITE SOB SYS HEM COMMAND. AND AC»< 
I ADDRESS OF SELFC7 BLOCK DATA 

I SIZE OF DATA PACKET 



jRERFAD COMMAND, AND ACK 
i ADDRESS Of WRITE BUFFER 
(SIZE OF BUFFER (EXTENT) 



,BSELO AREA 
jBSELl AREA 
iSFL 2 AREA 
llmTA AR£A 



jREREAD DATA 
jREREAO OATA 
t WRITE 
I END OF DATA 



CONTINQLb 



(NEXT) 
RETRY 



TEST 
TEST 



7: 



M8i6 M hhMl MflcR0 H1U3 01 - FEB - 84 18!55 



-115 



SEQ 189 



5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5.135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 

5153 

5154 

5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 

5164 

5165 

5166 

516/ 



067416 
067420 
067422 



067424 
067512 
067561 
067656 
067 740 
070010 
070065 
070146 
070220 
070313 
070370 
070447 
070524 
070573 
070646 
070715 
070770 
071060 
071133 
071206 
071261 
071350 
071432 
071514 
071602 
071670 
071766 
72043 
072125 
072205 
072302 
072363 
0/2461 
72552 
072650 
072736 
073013 



000000 
000000 
000000 



124 
124 
122 
120 
122 
124 
111 
124 
124 
127 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
lc'4 
124 
104 
121 
115 
111 
117 
124 
116 
105 



141 
123 
105 
117 
111 
123 
154 
123 
141 
122 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
123 
123 
141 
123 
117 
156 
120 
123 
15 7 
170 



160 
123 
122 
123 
102 
123 
154 
123 
160 
111 
122 
123 
167 
115 
323 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
123 
124 
164 
115 
123 
040 
164 



T35CNT 
T35CNU 
T35DLY 



i LOCAL 
{ - 



.WORD 
.WORD 
.WORD 









jTAPL TIMER COUNTER STORAGE AREA 
i TAPE TIMER COUNTER STORAGE AREA 
iDELAY COUNTER 



TEXT MESSAGES FOR TEST 



T35WNG 

T35RDF 

T55RRF 

T35SC; 

T35L0R 

T35WDF 

T35L0Q 

T35W0E 

T35B0T 

T35TIM 

T35E0T 

T35TM; 

T35RWN 

T35RNC 

T35AM3 

T350FL 

T35WO0 

T35W0C 

T35VCK 

T356A: 

T35WSS 

T35L0N 

T35L0P 

T35PBP 

T35TRL 

T35NEF 

T35SCF 

T35TSA 

T3SWRF 

T35DTA 

T35SSR 

T35M0T 

T35INT 

T350PM 

T35RWE 

T35NIN 

TST35I0: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCJZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 

• EVEN 



Tap* Position Incorrect After REREAD Previous (OPP-1)' 

TSSR Incorrect After READ DATA Command' 

REREAD Previous ( Space Reverse, Read Forward) Command Failed' 

POSITION (Space Command) failed. TSSR Not Correct' 

RIB NOT SET AFTER READ REVERSE INTO BOT' 

TSSR Not Correct After Illegal Mode Bite Set' 

Illegal Mooe BIt:j, Failed To Set ILC Bit In XSTO 1 

TSSR Not Correct After WRITE DATA Command' 

Tape Not At BOT After REWINO Command (BOT Not Get In XSTO)' 

WRITE DATA RETRY" S Eraee Tape Not Long Enough' 

REREAD DATA OVER EOT GAVE NO TAPE STATUS AL'JRT' 

TSSR Not Correct After REREAD COMMAND Reject* 

Rewind (POSITION) Command Not Accepted 1 

RAM Error, Correct Data Pattern Not In Ram' 

TSSR Init. Failed After REREAD COMMAND' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After REREAO DATA Command. 

REREAD 

VCK In 

REREAD 

Command 



Set 



TSSR Not Correct After 
CVC Sec, Didn* • t Reeet 
TSBA Not Correct After 
WKITE SUBSYSTEM MEMORY 
Reading Long Record Fa 
Reading Long Record 
ReeioVial Byte Count 
Reading Long Record 
WRITE DATA RETRY, At 



SWB Bit 
DATA Command' 
Meeseoe Buffer' 
DATA Command' 
Not Accepted (RAM Read) 



led To Set RLL Bit In XSTO 1 
Failed To Set RLS Bit In XSTO' 
Incorrect After Short Record Read' 
Failed To Give Tape Statue Alert' 
First Record, Failed To Set RIB Bit XST3 



TSSR Not Correct After SPACE RECORDS Command' 

TSSR Not Correct After WRITE DATA RETRY, Into BOT' 

TSSR Not Correct AF:er WRITE DATA RETRY Command' 

Data Compare Error, Date Read From T*pe Not Equal To Written' 

TSSR Incorrect After WGITu MISCELLANEOUS Command' 

MOT Bit (XSTO) Not Set During Rewind (Extended Feature* Mod* ) 

Interrupt Received After REWINO Commend (IE Bit Not Set)* 

0PM Bit (XST2) Not Set During Rewind (Extended Features Mode) 

TSSR Incorrect After Extended Featuree REWIND Co>wnand» 

No Interrupt Detected After REWINO IMMEDIATE' 

ASCIZ 'Extended Mode Functions' 



073044 



jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
I WRITE SUBSYSTEM MEMORY COMMAND 

i 
l 

T35REST} 



115 



TEST 1 - HARDWARE TESl 


1-8 TEST 


TEST 7; EXTENDED MODE 


FEATURES 


5168 075044 






5169 073050 


012701 


067240' 


5170 073054 


012721 


100004 


5171 073060 


012721 


067250 1 


5172 073064 


005021 




5173 073066 


012721 


000012 


5174 073072 


012721 


067262' 


5175 075076 


005021 




5176 073100 


012721 


000024 


5177 073104 


005021 




5178 073106 


012711 


OOOOOO 


5179 073112 


012702 


000030 


5180 073116 


012762 


177777 


5181 073124 


005742 




5182 073126 


022702 


OOOOOO 


5183 073132 


001371 




5184 073134 


000207 




5185 






5186 






51C7 073136 






5188 073136 






5189 073142 


012701 


Oo7350' 


5190 073146 


012721 


100006 


5191 073152 


012721 


067400 1 


5192 073156 


005021 




5193 073160 


012721 


000006 


5194 073164 


005021 




5195 0^3166 


012701 


067400* 


5196 073172 


005021 




5197 073174 


005011 




5198 073176 


000207 




5199 073200 






5200 073200 






5201 073204 


012701 


067370' 


5202 073210 


005021 




5203 073212 


005021 




5204 073214 


005021 




5205 073216 


005011 




5206 073220 


000207 




5207 073222 






073222 






073222 


104401 




5208 






5209 






5210 






5211 






5212 






5213 






5214 






5215 






5216 






521/ 






5218 






5219 






5220 






5221 






5£22 







MACRO 



067262 



113 01 


-FEB-84 
SAVREG 


18:55 




MOV 


•T35PACKET.R1 




MOV 


#100004, CRD* 




MOV 


OT35DATA,(Rl)t 




CLR 


CRD* 




MOV 


010.,(R1)^ 




MOV 


0T35BFR,(R1)* 




CLR 


CR1)» 




MOV 


020, ,(Rl)t 




CLR 


CRD* 




MOV 


00, (Rl) 




MOV 


024.. R2 


64$: 


MOV 


0177777, T35BFRCR2) 




TST 


(R2) 




OP 


00, R2 




ONE 


64$ 




RTS 


PC 


T35RT2: 


SAVREG 






MOV 


0T35PK2.R1 




MOV 


0100006, CRD* 




MOV 


0T35BF2.CR1)* 




CLR 


(Rl)» 




MOV 


06. ,(R1)> 




CLR 


CRD* 




MOV 


0T35BF2.R1 




CLR 


(Rl)f 




CLR 


(Rl) 




RTS 


PC 


T35RY3; 


SAVREG 






MOV 


OT35PK3.R1 




CLR 


(h».)» 




CLR 


CR1)» 




CLR 


CR1)» 




CLR 


(Rl) 




Rrs 


PC 




ENOTST 





SEQ 190 



t SAVE THE REGISTERS 

j START OF THE PACKET 

>WRITE SUBSYSTEM MEM. UITH ACK, 

j ADDRESS OF CHARArSTICS DATA BLOCK 

I EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN Bl TES 

j ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 



TO BE CLEARED 
BUFFER 



jSELECT DRIVE ZERO 

j NUMBER OF LOCATIONS 

i ALL ONES TO MESSAGE 

jNEXT LOCATION 

I AT END OF LOOP YET 

iKEEP GOING UNTIL DONE 

jRETURN 



jSAVE THE REGISTERS 

jSTART OF THE PACKET 

■WRITE SUBSYSTEM MEM. WITH ACK, 

j ADDRESS OF DATA BLOCK 

jEXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



j RE TURN 

j SAVE REGISTERS 

i SET UP POINTER ADDRESS 

{COMMAND SPACE 

I ADDRESS OF DATA BLOCK 

j EX TENDED ADDRESS 

i SIZE OF DATA TRANSFER BLOCK 

I RE TURN 



L 10063: 



TRAP 



CJETST 



.SBTTL TEST 8: RECORD BUFFERING 



THIS TEST VERIFIES THAT RECORD BUFFERING, USED FOR WRITE DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLY 
CONTROLLED BY THE EXTENOED CHARAC1 ERISTICS DATA WORD. IF THE 
M7455 CONTROLLER MOOLA.E IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED BY THE DIP SWITCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY K.VERTING THE SENSE OF THE SVJITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMANO. NOTE THAT RECORD BUFFERING HAS 
BEEN ENABLED IN PREVIOUS TESTS OF READ AND WRITE AND SO HAS BEEN 
PARTIALLY TESTED ALREADY, THIS TEST VERIFIES THAT BUFFERING IS 
ACTUALLY OPERATING. THE FOLLOWING SUBTESTS ARE PERFORMED: 



J15 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST ft; RECORD BUFFERING 



5225 

5224 
5225 
5226 
522/ 
5228 
5229 
5250 
5251 
5232 
5253 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
524 7 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
525/ 
5258 
5259 
5260 
5261 
5262 
5263 
5264 
5265 

5266 073224 

073224 

526/ 073224 

5268 073252 

5273 073236 

5274 073242 

5275 073246 
52/6 073254 
5277 

5278 
5279 
5280 
528 '■ 
5262 



Ol-FEB-84 18s55 



SEQ 191 



VERTFIES THAT NORMAL BUFFERING ON URITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED. THE FOLLOWING SEQUENCE IS 
PERFORMED : 

1. THE TAPE IS REWOUND. 

2. BUFFERING IS DISABLED AND LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMAND). 

3. AN INITIAL RECORD IS WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 

4. THE PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION AND COME TO REST. 

5. A WRITE DATA COMMAND, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED, AND THE PROGRAM COUNTS. IN A WAIT LOOP. THE 
TIME IT TAKES TO RECEIVE COMfVND TERMINATION. THIS 
SHOULD BE A RELATIVELY LONG TIME SINCE BUFFERING IS 
DISABLED. 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED. WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY. THE TIME TO 
COMPLETION IS AGAIN MEASURED. 

8. THE COMPLETION TIMES MEASURED F0« THE NON-BUFFERED AND 
BIVFEREO CASSS A«E COMPARED, IT IS VERIFIED THAT THE 
TIME MEASURED fW THE NON-BUFFERED CASE IS MUCH LARGER 
TH.-J THAT MEASURED FOR THE BUFFERED CASE. 

9. THE PREVIOUS STEPS, EXCEPT FOR REWINDING ANO WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS GYVE COUNTS IN 
THE RANGE 20 THROUGH 3.5K, 



THE TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



BGNTST 



012737 006166' 002172* 

004737 017166* 

012700 100607' 

004737 016402' 

012737 000005 002210' 

005057 075616' 



MOV 


OEPRTl.EPRTSW 


JSR 


PC.KTOF* 


MOV 


0TST36ID.RO 


JSR 


PCTSTSETUP 


MOV 


O5.L00PCNT 


CLR 


T36CNT 



T8: : 
^PRIMARY E^ROR MESSAGE 
jTURN Oct KT11 
{ASCII MESSAGE TO IDENTIFY 
jDO INITIAL TEST SETUP 
jPERFORM 5 ITERATIONS 
j CLEAR TAPE RECORD COUNTER 



TEST 



j TEST 8, SUBTEST 1 



j VERIFIES THAT A WRITE DATA RETRY COMMAND ISSUED WHILE 



K15 



TEST 1 - HARDWP 


•*E TEST 


1-8 TEST 


TEST 8 j RECORD 


BUFFERING 


5283 






5284 






5285 






5286 






528 7 






5288 






5289 






5290 073260 






5291 073260 






073260 






073260 


104402 




5292 073262 


004737 


100630' 


5293 073266 


004737 


100723' 


5294 073272 


004737 


100764' 


5295 073276 


012737 


176750 


5296 073304 


005037 


075616* 


5297 073310 


004737 


015664' 


5298 073314 


103426 




5299 073316 






073316 


012727 


000250 


073322 


000000 




073324 


013727 


002116' 


• 073330 


000000 




073332 


005367 


177772 


073336 


001375 




073340 


005367 


177756 


073344 


001367 




5300 073346 


005337 


075622' 


5301 073352 


001356 




5502 073354 


005237 


002214' 


5406 073360 


010001 




5507 73362 






073362 


104455 




073364 


001441 




073366 


003642' 




073370 


011724' 




5308 073372 


013737 


002174' 


5309 073400 


012704 


075440' 


5310 073404 


004737 


010552' 


5311 073410 


103407 




5312 073412 


005237 


002214' 


5316 073416 


010001 




5317 073420 






073420 


104456 




073422 


001442 




073424 


005046' 




073426 


011724' 




531.8 073430 






073430 


104406 




5319 073432 


004737 


010704' 


5*20 073436 


103407 




5521 073440 


010004 




5322 07 3442 


005237 


002214' 


5326 073446 






073446 


104456 




073450 


001443 




073452 


077031' 





MACRO 141113 01-FEB-84 18:55 



SEQ 192 



;THE TAPE IS POSITIONED AT BOT CAL'JES FUNCTION REJECT 
{TERMINATION, WITH THE NON-EXECUTABLE FUNCTION (NEF) 
;ERR0R BIT SET, 



075622 



T36L00P: 




BGNSUB 




JSR 


PC.T36REST 


JSR 


F^.T36RT2 


J5R 


PC.T36RT3 


MOV 


465000. .T36DLY 


CLR 


T36CNT 


10$; JSR 


PC.SOFINIT 


BCS 


20 $ 


DELAY 


250 



)>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 



T8.1 



iSET 
I SET 
I SET 
iSET 



TRAP 



C$BSUB 



PACKET 
PACKET 



COMMAND PACKET 
UP OTHER COMMAND 
[JP OTHER COMMAND 
UP OELAY COUNTER 
{CLEAR COUNTER 

{00 INITIALIZE ON CONTROLLER 
jBR IF INIT WAS OK 
t DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 

. WORD 

DEC 

BNE 

DEC 

BNE 



0250, (PC)* 



L*DLY,(PC)» 



-6(PC) 

.-4 

-22CPC) 

.-20 



075460' 20$ j 



25$: 



DEC 


T3CDLY 


jBUMP COUNTER 




BNE 


10* 


jBR, IF COUNTER NOT DONE 




INC 


FATFLG 


{ERROR COUNT 




MOV 


R0.R1 


{CONTENTS OF TSSR REGISTER 




ERRDF 


ERRNO,SFIERR # SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 








TRAP 


C$ERDF 






.WORD 


801 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN,T36DSW 


iSEl UP DRIVE NUMBEF 




MOV 


0T36PACKET.R4 


{SUBROUTINE NEEDS r ACKET ADDRESS 


JSR 


PC.WRTCHR 


{ISSUE WRITE CHARACTERISTICS 




BCS 


25$ 


j BR, IF COMMAND .SSUED OK 




INC 


FATFLG 


{ERROP COUNT 




MOV 


R0.R1 


{SAVE CONTE^.S OF TSSR 




ERRHRD 


ERRNQ.WRTMSG.SFIMSG 


{WRITE CH'.iACTERISTISC FAILED 








TRAP 


CIERHRD 






.WORD 


802 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKLOOP 




j» ".JP IF SELECTED 








TRAP 


C$CLP1 


JSR 


PC. REWIND 


{CALL TAPE REWIND COMMAND 




BCS 


oO$ 


jBR. IF NO PROBLEM 




MOV 


R0,R4 


{SET UP REWIND PACKET ADDRESS 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0,T36RWN,PKTSSR 


{REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


803 






.WORD 


T36RWN 



LIS 



TEST 1 - 


HARDWARE TEST 


1-8 TEST MACRO M 


TEST 8 j 


RECORD 


BUFFERING 




073454 


011736' 




5327 


073456 








073456 


104406 




5328 


073460 


013701 


075470' 


5329 


073464 


010102 




5330 


073466 


052 702 


000002 


5331 


0734 72 


020102 




5332 


073474 


001406 




5333 


073476 


005237 


002214' 


5337 


073502 








073502 


104456 






073504 


001444 






073506 


076525' 






073510 


015364' 




5338 


073512 








073512 


104406 




5339 


073514 


013737 


002174' 075460' 


5340 


073522 


052737 


000030 075460' 


5341 


073530 


012704 


075440' 


5342 


073534 


004737 


010552' 


5343 


073540 


103407 




5344 


073542 


005237 


002214* 


5348 


073546 


010001 




5349 


073550 








073550 


104456 






073552 


001445 






073554 


005046' 






073556 


011724' 




5350 


073560 








073560 


104406 




5351 


073562 


012737 


003720 075576' 


5352 


073570 


013737 


003116' 075572' 


5353 


073576 


012737 


140005 075570' 


5354 


073604 


012704 


075570' 


5355 


073610 


010465 


000000 


5356 


073614 


004737 


016140' 


5357 


073620 


016501 


000002 


5358 


073624 


0127C2 


000200 


5359 


073630 


020102 




5360 


073632 


001406 




5361 


073634 


005237 


002214' 


5365 


073640 








73640 


104456 






073642 


001446 






073644 


005103' 






073646 


011736' 




5366 


073650 








073650 


.04406 




536/ 


073652 


012737 


000005 075622' 


5368 


073660 








073660 


012727 


000001 




073664 


000000 






073666 


013727 


002116' 




073672 


000000 






073674 


005367 


177772 




073 700 


001375 






073702 


005367 


177756 



M1113 Ol-FEB-84 18{55 



30$ 



CKLOOP 



MOV 


T36BFR*6,R1 


MOV 


R1.R2 


BIS 


00IT1.R2 


CMP 


R1.R2 


BF.Q 


40$ 


INC 


FATriG 


ERRHRD 


ERRN0.T36B0T.EXPREC 



40$ 



CKLOOP 



MOV 


UNITN.T36D3W 


BIS 


0eiT3!8IT4,T36DSW 


MOV 


OT36PACKET.R4 


JSR 


PC,WRTCHR 


BCS 


501 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO,WRTMSG,SFIMSG 



50$: 



60$: 



70$ t 



CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



CKLOOP 

MOV 
DELAY 



02000., T36S2 

FFEE.T36WB 

0140005 .T36PK3 

0T36PK3,R4 

R4.TSDBCR5) 

PC.UAITF 

TSSR(R5),R1 

0SSR.R2 

R1.R2 

60$ 

FATFLG 

ERRNO.WRTERR. PKTSSR 



005. ,T36DLY 
1 



.WORD 

lLOOP IF SELECTED 

TRAP 

,PICK UP XSTO 

I SET ^)P EXPECTED 

jSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

j BR, IF EQUAL (OK) 

j ERROR COUNT 

j TAPE NOT AT B0 T AFTER REWIND 

TRAP 
.WORD 
.l ,r »RD 

... "0 



SEQ 193 



PKTSSR 
C$CLP1 



{LOOP IF SELECTED 



TRf-? 



CSERHRD 
804 

T36B0T 
EXPREC 

C$CLP1 



I SET UP DRIVE NUMBER 

{25-APR-83 REV 9 - TURN ON THE BUFFERING 

j SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTIC 

}BR, IF COMMAND ISSUED OK 

I ERROR COUNT 
j SAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



lLOOP IF SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


805 


.WORD 


WRTMSG 


t NORD 


SFIMSG 



TRAP 



C$CLP1 



j SET UP RECORD SIZE 

{ADDRESS OF WRITE Bl*TER 

(WRITE DATA,ACK,CVC»1 COMMANO 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMAND 

,WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

{ARE THEY EQUAL 

{9R, IF OK 

{ERROR COUNT 
{TSSR INCORRECT AFTER READ DATA 





TRAP 


C$ERHRD 




.WORD 


806 




WORD 


WRTERR 




.WORD 


PKTSSR 


{I OOP IF SELECTED 








TRAP 


CSCLP1 


{25-APR-8* REV B - 


DELAY FOR TAPE TO STOP 


I25-APR-63 REV B - 


DELAY ROUTINE CALL 




MOV 


Ol.CPC)* 




.WORD 







MOV 


LSDLt.CPC 




.WORD 







DEC 


-6cpc: 




BNE 


. -4 




DEC 


-22( PC) 



M15 



TEST 1 - 
TEST 8- 


HARDWA 
RECORD 


WIUg* test 


MACRO M 




073706 


001367 






5369 


073710 


005337 


075622' 




5370 


073714 


001361 






5371 


073716 


012737 


006642 


075576' 


5372 


073724 


012737 


140005 


075570' 


5373 


073732 


012704 


075570' 




5374 


073736 


005037 


075616' 




5375 


073742 


012737 


001750 


075622' 


5376 


073750 


01046 c > 


000000 




5377 


073754 


016501 


000002 




5378 


073760 


032701 


000200 




5379 


073764 


001021 






5380 


0737 66 


005237 


075616' 




5381 


073772 










073772 


012727 


000001 






073776 


000000 








074000 


013727 


002116' 






074004 


000000 








074006 


005367 


177772 






074012 


001375 








074014 


005367 


177756 






074020 


001367 






5382 


074022 


005337 


075622' 




5383 


074026 


001352 






5384 


074^30 


012702 


000200 




538:3 


074034 


020102 






5360 


074036 


001406 






5387 


074040 


005237 


002214' 




5391 


074044 
074044 
074046 
074050 
074052 


104456 
001447 
076453' 
011736' 






5392 


074054 
074054 


104406 






5393 


074056 


013737 


002174' 


075460' 


5394 


074064 


052737 


000010 


075460' 


5395 










5396 


074072 


012704 


075440' 




5397 


074076 


004737 


010552' 




5398 


074102 


103407 






5399 


074104 


005237 


002214' 




5403 


074110 


010001 






5404 


074112 
074112 
074U4 
074116 
074120 


104456 

001450 

005046' 

011724' 






5405 


074122 
074122 


104406 






5406 


074124 


012737 


006642 


075576' 


540 7 


074132 


01273? 


140005 


075570* 


5408 


074140 


012704 


075570' 




5409 


074144 


005037 


075620' 




5410 


074150 


012737 


001750 


075622- 


5411 


074156 


010465 


000000 




5412 


074162 


016501 


000002 





01-FEB-84 18:55 



80$: 



DEC 


T36DLY 


BNE 


701 


MOV 


03490. .T36SZ 


MOV 


0140005, T36PK3 


MOV 


0T36PK3.R4 


CLR 


T36CNT 


MOV 


01000,. T36DLY 


MOV 


R4,TSDB(R5) 


MOV 


TSSRCR5),R1 


BIT 


0SSR,R1 


BNE 


90$ 


INC 


T36CNT 


DELAY 


1 



90$: 



100$ 



DEC 
BNE 
MOV 
CMP 
BEQ 
INC 
ERRHPD 



CKLOOP 

MCV 
BIS 

MOV 
JSR 
BCS 
INC 
MOV 
ERRKRD 



110$: CKLOOP 



T36DLY 

80$ 

0SSR.R2 

R1.R2 

100$ 

FATFLG 

ERRN0,T36WDE,PKTSSR 



UNITN.T36DSW 
06IT3.T36DSW 

0T36PACKET.R4 

PCWRTCHR 

110$ 

FATFLG 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



120$; 



MOV 


03490. , T36SZ 


KJV 


0140005, T36PK3 


MOV 


0T36PK3,R4 


CLR 


T36CNU 


MOV 


01000,, T36DLY 


MOV 


R4.TSDBCR5) 


MOV 


TSSRCR5),R1 



BNE 
BUMP COUNTER DOWN 

BR, IF MORE DELAY TO GO 

SET SIZE OF TRANSFER 

WRITE DATA.ACK.CVC-l COMMAND 

SET UP R4 WITH PACKE T ADDRESS 

CLEAR COUNTER 

SET DROP DEAD COUNTER VALUE 

ISSUE COMMAND 

GET TSSR CONTENTS 

CHECK FOR SSR SET 

BR, IF SSR IS SET 

BUMP CYCLE COUNTER 

CUT NUMBER OF LOOPS DOWN 



SEU 194 



.-20 



MOV 


01, (PC)* 


.WORD 





MOV 


L$DLY.(PC)* 


.WORD 





DEC 


-6CPC) 


BNE 


.-4 


DEC 


^22(PC) 


BNE 


.-20 



BUMP DROP DEAD COUNTER 
BR, IF THERE IS STILL TIME 
SET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 

j ERROR COUNT 
TSSR INCORRECT AFTER READ DATA 

TRAP 



LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
807 
T36WDE 
PKTSSR 

C$CLP1 



SET UP DRIVE NUMBER 

25- APR -83 REV B - TURN OFF BUFFERING 

TURN OFF BUF ERING CAPABILITY 

SUBROUTINE NT.EDS PACKET ADDRESS 

ISSUE WRITE CHARACTERISTICS 

BR, IF COMMANO ISSUED OK 

j ERROR COUNT 
SAVE CONTENTS OF TSSR 
WRITE CHARACTERISTIC FAILED 

TRAP 



lOOP IF SELECTED 



.WORD 
,W0,^0 
.WORD 

TRAP 
I SET SIZE OF TRANSFER 
» WRITE DATA.ACK.CVC-1 COMMAND 
jSET UP R4 WITH PACKET ADDRESS 
j CLEAR COUNTER 

i SET DROP DEAD COUNTER VALUE 
{ISSUE COMMAND 
jGET TSSR CONTENTS 



C$ERHRD 
808 

WRTMSG 
SFIMSG 

C$CLP1 



N15 



TEST 1 - HARDWARE TEST 1-* 
TEST 8; RECORD BUFFERING 



TEST MACRO M1113 Ol-FEB-84 18:55 



5413 
5414 
5415 
5416 



5417 
5418 
5419 
5420 
5421 
5422 
5426 



5427 

5428 
5429 
5430 
5431 
5432 
5436 



5437 
5438 



54 39 
5440 
5441 
5442 
5<43 
5444 
5445 
5446 
544 7 
5448 
5449 
5450 
5451 
5452 
5455 
5454 
5455 



074166 
074172 
074174 
074200 
074200 
074204 
074206 
074212 
074214 
074220 
074222 
074226 
074230 
074234 
074236 
074242 
074244 
074246 
074252 
074252 
0742S4 
074256 
74260 
074262 
074262 
074264 
074270 
074274 
074276 
074300 
074304 
074304 
074306 
074310 
074312 
074314 
074314 
074316 
074316 
074316 
074320 
074326 
074330 
074334 



032701 000200 

001021 

005237 075620* 



BIT 


4SSR.R1 


BNE 


130$ 


INC 


T36CNU 


DELAY 


1 



012727 
000000 
013727 
000000 
C05367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
005237 

104456 
001451 
005103' 
011736' 

104406 
013701 
013702 
020102 
003406 
005237 

104456 
001452 
075624' 
015364' 

1C4406 



104403 
023727 
103402 
004737 



000001 

002116' 

177772 

177756 

075622' 

000200 

002214 



130$: 



DEC 


T36DLY 


BNE 


120$ 


MOV 


4SSR.R2 


CMP 


R1.R2 


BEQ 


140$ 


INC 


FATFLG 


ERRHRD 


ERRNQ.WRTERR.PKTSSR 



140$: CKLOOP 



075616 
075620 



002214 



300$: 



002214 
017074 



000017 



999$: 



CKLOOP 
END SUB 



CMP 
BLO 
JSR 



f-ATFLG,tfl5, 

999$ 

PCCKDROP 



TEST 8, SUBTEST 2 



SEQ 195 



; CHECK FOR SSR SET 




iBP, IF SSR IS SET 




tBUMP CYCLE COUNTER 




1 CUT NUMBER OF LOOPS DOWN 




MOV 


01. (PC)* 


.WORD 





MOV 


L$DLY.CPO* 


.WORD 





DEC 


-6fPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


.-20 


{BUMP DROP DEAD COUNTER 




;BR, IF THERE IS STILL TIME 




;SET UP EXPECTED 




j ARE THEY EQUAL 




} BR, IF OK 




jSRROR COUNT 




jTSSR INCORRECT AFTER WRITE DATA 


TRAP 


C$ERHRO 


.WORD 


809 


.WORD 


WRTERR 


.WORD 


PKTSSR 



LOOP IF SFi ECTED 



TRAP 



C$CLP1 



MOV 


T36CNT.R1 


; 


M?V 


T36CNU.R2 


• 


CMP 


R1.R2 


I 


BLE 


300$ 


I 


INC 


FATFLG 




ERRHRD 


ERRN0,T36NAS,EXPREC 


I 



GET FIRST COUNTER 

GET SECOND COUNTER 

25 -APR -83 REV B - COMPARE EM 

BP. IF VALUES fr!E CORRECT C0IO 
{ERROR COUNT 

TAPE NOT AT CORRECT SPEED 

TRAP 
.WORD 
.WORD 
.WORD 

LOOP IF SELECTED 

TRAP 

L 10071: 

TRAP 
{IS ERRO* COUNT AT 25 
{BR, IF LESS THAN 25 
;TRY TO DROP THE UNIT 



C$ERHRD 
810 
T36NAS 
EXPREC 

C$CLP1 



C$ESUB 



(HIS TEST VERIFIES THAT PECOPO BUFFERING. USED FOR WRITS DATA 
AND READ NEXT COMMANDS, OPERATES PROPERLY AND IS PROPERLi 
CONTROLLED BY THE EXTENDED CHARACTERISTICS DATA WORD. IF THE 
M7455 CONTROLLER MODULE IS NOT ALREADY IN EXTENDED FEATURES MODE 
(AS CONTROLLED B> THE DIP SUTTCH ON THE MODULE), IT IS PLACED 
INTO THAT MODE BY INVERTING THE SENSE OF THE SWITCH USING THE 
WRITE SUBSYSTEM MEMORY COMMAND, NOTE THAT RECORD BUFFERING HAS 



Bib 



TEST 
TEST 



5456 

545/ 

54Stf 

5459 

5460 

5461 

546c? 

5465 

5464 

5465 

5466 

546' 

5468 

5469 

54 70 

54/1 

54 72 

54 7 5 

54 74 

5475 

54 7b 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5454 

5485 

5486 

548? 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 



5500 
5501 
5502 
5503 
5504 
5505 
5506 
5507 



HARDWARE TEST 1 8 
RECORD BUFFERING 



TEST MACRO M1113 01-FEB-84 S3:55 



SEQ 196 



074334 
074334 
074334 
074336 
074342 
074 346 
74 352 
074360 
074 364 
074370 
074372 
074372 
074376 
0/4400 



BEEN ENISLED IN PREVIOUS TESTS OF READ ANO WTITE AND SO HAS BEEN 
PARTIALLY iESTED ALREADY, THIS TE^T VERIFIES THAT BUFFERING 15 
ACTUALLY OPERATING, THE FOLLOWING SUBTESTS ARE PERFORMED: 

VERIFTES THAT NORMAL BUFFERING ON WRITE DATA COMMANDS OPERATES 
PROPERLY AT LOW TAPE SPEED, THE FOLLOWING SEQUENCE IS 
PERFORMED; 

1. THE TAPE IS REWOUNO, 

2. BUFFERING IS DISABLED ANO LOW TAPE SPEED IS SELECTED 
(VIA WRITE CHARACTERISTICS COMMANO). 

3. AN INITIAL RECORD 15 WRITTEN ONTO THE TAPE IN ORDER TO 
MOVE THE TAPE OFF BOT. 

4. TUT; PROGRAM DELAYS FOR A TIME SUFFICIENT TO ALLOW THE 
TAPE TO REPOSITION ANO COME. TO REST. 

5. A WRITE DATA COMMANO, WITH A BYTE COUNT LESS THAN 3.5K, 
IS ISSUED. ANO THE PROGRAM COUNTS. IN A WAIT LOOP, THE 
TIME IT TAKES TO RECEIVE COMMANO TERMINATION. THIS 
SHOLLD 3E A RELATIVELY LOW TIME SINCE BUFFERING IS 
DISABLED, 

6. BUFFERING IS ENABLED. 

7. THE WRITE DATA COMMAND IS AGAIN ISSUED, WITH THE SAME 
BYTE COUNT AS THAT USED PREVIOUSLY, THE TIME TO 
COhPLETION IS AGAIN MEASURED. 

8. THE COMPLETION TIMES MEASl^FD FOR THE NON-BUFFERED ANO 
BUFFERED CASES ARt COMPARED, IT IS VERIFIED THAT THE 
TIME MEASURED FOR THE NON-BUFFERED CASE I'J MUCH LARGER 
THAN THAT MEASURED FOR THE BUFFERED CASE. 

9. THE PRFVIOOf. STEPS, EXCFPT FOR REWINDING AND WRITING A 
RECORD OFF BOT, ARE REPEATED FOR VARIOUS BYTE COUNTS IN 
THE RANGE 20 THROUGH 3,5K. 



8GNSU6 



)>>>>>>>>>>>> 



1O4402 
004737 
004737 
0O4737 
012737 
005037 
004 73 7 
103426 

012727 
000000 
0X3727 



100630' 

100722' 

100764' 

176 750 

075616' 

015664 



000250 
002116' 



07562i! 



101 j 



JSR 


PC.T36REST 


JSR 


PC.T36RT2 


JSR 


PC.T36RT3 


MOV 


065000. .T36DLY 


CLR 


T36CNT 


JSR 


PC.SQFINIT 


BCS 


20 • 


DELAY 


350 



BEGIN SUBTEST 
T8.2j 

TRAP 

I SET COMMAND PACKET 

iSET UP OTHER COMMANO PACKET 

l SET UP OTHER COMMAND PACKET 

iSET UP DELAY COUNTER 

iCLEAR COUNTER 

lOO INITIALIZE ON CONTROLLER 

l BR IF INIT WAS OK 

I DELAY ABOUT ,25 SEC 

MOV 

.WORD 

MOV 



))nin^>)!i 



c$Bsue 



0^50, (PC). 





C16 



TEST I 


HARDWARE TEST 


1 8 TEST MACRO P 


TEST 8s 


RECORD 


BUFFERING 




074404 


000000 






074406 


00536 7 


177772 




074412 


001375 






074414 


005367 


177756 




07<420 


001367 




5508 


074422 


005337 


075622' 


5509 


074426 


001356 




5510 


074430 


005237 


002214* 


5514 


074434 


010001 




5515 


074436 








074436 


104455 






074440 


001453 






074442 


003642' 






74444 


011724' 




5516 


074446 


013737 


002174' 075460' 


5517 


074454 


052737 


000040 075460' 


5518 


074462 


012704 


075440' 


5519 


074466 


0O4737 


010552' 


5520 


074472 


103407 




5521 


074474 


005237 


002214' 


5525 


074500 


010001 




5526 


074502 








074502 


104455 






0745O4 


001454 






074506 


005046' 






074510 


011724' 




5527 


074512 








074512 


104406 




5528 


074514 


004737 


010704' 


5529 


74520 


103407 




5530 


074522 


010004 




5531 


074524 


005237 


002214' 


5535 


074530 








074530 


104456 






074552 


001455 






074554 


077031' 






071536 


011736' 




5536 


074540 








074540 


104406 




5537 


074542 


013701 


0754:0' 


5538 


074546 


010102 




5539 


074550 


052702 


000002 


5540 


074554 


020102 




5541 


074556 


001406 




5542 


074560 


00523 7 


002214' 


5546 


074564 








0M564 


104456 






074566 


00145vS 






074570 


076525' 






074572 


015364' 




554 7 


074574 








074574 


1C4406 




55 


0/4576 


013737 


002174' 75460' 


55** * 


74604 


052737 


000030 Q7M60' 


5550 


074612 


012704 


075440' 


5551 


074616 


004 757 


010552* 


5552 


074622 


10W07 





MUIS Ol-FEB-84 18?55 



201: 



DEC 

BNE 
INC 
MOV 
ERRDF 



MOV 

ais 

MOV 
JSR 
BCS 
INC 
MOV 
ERRHRD 



25$ i CKLOOP 

JSR 
BCS 

MOV 
INC 
ERPHRD 



301 j 



CKLOOP 



401; 



CKLOOP 



T 36DL Y 
101 

FATFLG 
RO.Rl 

ERRNO.SFIERR.SFIMSG 



UNITN,T36DSW 

*eiT5.T36DSU 

M36PACKET.R4 

PC, WRTCHR 

25$ 

FATFLG 

RO.Rl 

ERRN0.WRTMSG.SFIM5G 



PC. REWIND 

30$ 

R0,R4 

FATFLG 

ERRNO, T36RWN,PKT5SR 



MOV 


T36BFR*6,M1 


MOV 


Nl.R? 


BIS 


•BU1.R2 


CMP 


M1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRO 


ERRNO, TSbBOT.EXPRfcC 



MOV 


LNITN.T360SW 


BI C 


♦6IT3J6IT4.T36DSW 


MOV 


OT56PACKFT»R4 


JSR 


PC.WftTCHK 


acs 


5Q$ 



SEQ 197 



,i*ORD 
DtC -6C D C) 

BNE . -4 

DEC 22(PC) 

BNE ,-20 

»BLWP COLNTER 

I BR, IF COUNiER NOT DONE 
iERROR COUNT 

iCONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 

.WORD 811 
■WORD SFIERR 
.WORD SFIMSG 

i SET UP DRIVE NUMBER 

i TURN ON HT.GH SPEED 

I SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

|6R, IF COMMANO ISSUED OK 
I ERROR COUNT 

jSfVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



,LOOP IF SELECTED 

TRAP 

iCALL TAPE REWIND COMMAND 

lBh t IF NO PROBLcM 

iSKT UP REWINO PACKET ADDRESS 
lERROR COLWT 

I REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
812 

WRTMSG 
SFIMSG 

C$CLP1 



jLOOP IF SELECTED 

iPICK U* XSTO 

iSET UP EXPECTED 

iSET 80T BIT IN EXPECTED 

»DOES EXP « REC'D 

I BR, IF EQUAL (OK) 

jERROR COLWT 
I TAPE NOT 



j LOOP IF 



TRAP 



C$ERHRD 
813 

T36RWN 
PKTSSR 

C$CLPi 



AT BOT AFTER REWINO 




TRAP 


C$ERHRO 


.WORD 


814 


.WORD 


T36B0T 


.WORD 


EXPREC 


SELECTED 





TRAP 



MCLP1 



iSET UP DRIVE NUMBER 

i 25 APR -83 REV B - TURN ON THE BUFFERING 

jSiJBROLiTINE NEEDS PACKET ADDRESS 

j ISSUE WPITE CHARACTERISTICS 

*BR, IF COMMAND ISSUED OK 



ftif 



Dlb 



1 V. 


»TUN>Wg 6 TfcST 


MACHO M 


5555 


074624 


005257 


002214 1 




5557 


074650 


010001 






5558 


074652 
074652 
74654 
074656 
074640 


104456 
001457 
005046' 

011724' 






5559 


074642 

074642 


104406 






5560 


074644 


012757 


003720 


075576' 


5561 


74652 


015757 


005116' 


075572' 


5562 


74660 


012757 


140005 


075570' 


55u3 


074666 


012704 


075570' 




5564 


074672 


010465 


000000 




5565 


074676 


004757 


016140' 




5566 


074 702 


016501 


000002 




5567 


074706 


012702 


000200 




5566 


074712 


020102 






5569 


074714 


0O1406 






5570 


074716 


005257 


002214' 




5574 


074722 
074722 
074/24 
074 726 
074750 


104456 
001460 
005105' 
011756' 






5575 


074752 
074752 


104406 






5576 


074754 


01*757 


000005 


075622' 


5577 


074742 










074742 


012727 


OOOOOl 






074746 


000000 








0/4 750 


015727 


002116' 






074754 


000000 








074756 


005567 


177772 






074762 


001575 








074764 


005567 


177756 






074770 


001567 






5578 


074772 


005557 


075622' 




5579 


074776 


001561 






5530 


075000 


012757 


006642 


075576' 


5581 


075006 


012757 


140005 


0/5570* 


5582 


075014 


012704 


075570* 




5585 


75020 


005057 


075616* 




5584 


75024 


012757 


001750 


07-162? * 


5585 


075052 


010465 


000000 




5586 


075056 


016501 


000002 




5587 


075042 


052 701 


000200 




5598 


0750V16 


C01021 






5589 


75050 


005237 


075616' 




5590 


7 5054 










0/5054 


012727 


OOOOOl 






075060 


000000 








75062 


015727 


002116* 






075066 


000000 








075070 


00536 7 


1/7 7 72 






075074 


001375 








075076 


005367 


177756 





M1115 01-FEB-flA 18?55 



50$! 



INC 
MOV 
ERRHRD 



CKLOOP 

MOV 
MOV 
MOV 
NOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
INC 
ERRHRD 



60*! 
70$! 



80$! 



FATFLG 

R0.R1 

ERRNO,WRTMSG»SFIMSG 



02000. , T56SZ 

FREE.T56W8 

0140005, T56PK3 

OT36PK3.R4 

R4,TSDB(R5) 

PCUAITF 

TSSR(R5),R1 

*SSR»R2 

R1.R2 

60$ 

FATFLG 

ERRNO.WRTERR.PKTSSR 



CKLOOP 

MOV 005..T36DLY 
DELAY 1 



DEC 


T 560L V 


BME 


701 


MOV 


#5490. . T36S/ 


MOV 


C1400O5.T36PK3 


MOV 


OT36PK5.R4 


CLR 


T56CNT 


MOV 


*1000. , T56DLY 


MOV 


R4,TS0B^R5) 


MOV 


TSSR(R5),H1 


BIT 


0SSR.R1 


BNF. 


90$ 


INC 


T36CNT 


DELAY 


1 



SEQ 198 



I ERROR COUNT 
jSAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTISC 



,LOOP IF SELECTED 



FAILED 
TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
815 

WRTMSG 
SFIMSG 

C$CLP1 



,SET UP RECORD SIZE 

, ADDRESS OF WRITE BUFFER 

iWRITE DATA.ACK.CVC-1 COMMAND 

,SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMANO 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

»SET UP EXPECTED 

,AWE THEY FQUAL 

jBR, IF OK 

lERROK COUNT 

jTSiSR INCORRECT AFTER READ DATA 

TRAP C$ERHRD 
.WORD 816 
.WORD URTERR 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CiCLPl 

j25-APR»85 REV B - DELAY f CW Tflnc rr, STO p 

j 25 -APR -83 REV B - DELAY RO^'rlNE CAL\ 



BUMP COUNTER DOWN 

BR. IF MORE DELAY TO 

SET SIZE OF TRANSFER 

URITK DATA,ACK,,:VC-1 

SET UP R4 WI1H JACKET 

CLEAR COUNTER 

SET DROP DEAD COOLER VALUE 

ISSUE COMMANO 

GET TSSR CONTENTS 

CHECK FOR SSR SET 

BR. IF SSR IS SET 



MCV 


tl.Cf-S). 


■ WORO 





MOV 


L$0LY t (PO* 


.WORD 





DEC 


-6(PC) 


BN€ 


. 4 


DEC 


-22CPC) 


BNE 

r.n 


.*20 


UU 
COMMAND 




ADDRESS 





BUMP CYCLE COUNTER 




CUT NUMBER OF L00P5 DOWN 




MOV 


Ol.vPCW 


,WCRD 





MOV 


L$Dl.i A PO* 


.WORD 





DEC 


6(PC 


BNE 


. 4 


DtC 


-cVCPC) 



Lib 



TEST 1 


HARDWARE TEST 


1-0 TEST MACRO f 


TEST 8; 


: RECORD 


BUFFER! 


NG 




075102 


001367 




5591 


075104 


00533 7 


C75622' 


559? 


075110 


001352 




5593 


075112 


012702 


000200 


5594 


075116 


020102 




5595 


075120 


001406 




5596 


075122 


005237 


002214' 


5600 


075126 








075126 


1C4456 






075130 


001461 






075132 


076453' 






075134 


011736' 




5601 


075136 








075136 


104406 




5602 


075140 


013737 


002174' 75460 


5603 


075146 


052737 


000010 075460 


5604 


075154 


012704 


075440' 


5605 


075160 


004737 


010552* 


5606 


075164 


103407 




5607 


075166 


00523 7 


0022.14' 


5611 


075172 


010001 




5612 


075174 








075174 


104456 






075176 


001462 






075200 


005046' 






75202 


011724' 




5*13 


075204 








075204 


104406 




5614 


075206 


012737 


006642 075576 


5615 


075214 


012737 


140005 075570 


5616 


075222 


012704 


075570' 


5617 


075226 


00503 7 


075620' 


5618 


07523? 


012737 


001750 075622 


56)9 


75240 


010465 


OOOOOO 


56C0 


075244 


016501 


000002 


5621 


075250 


032701 


000200 


5622 


075254 


001021 




5623 


075256 


0C5237 


075620' 


5624 


075262 








075262 


012727 


000001 




075266 


OOOOOO 






075270 


013727 


002116' 




075274 


OOOOOO 






075276 


005367 


177772 




075302 


001375 






075304 


005367 


17 7756 




075310 


001367 




5625 


075312 


005337 


075622' 


5626 


075316 


001352 




5627 


075320 


012702 


000200 


5628 


075324 


020102 




5629 


075326 


001406 




5630 


075330 


005237 


002214' 


56S4 


075354 








C75334 


104456 






075336 


001463 






075340 


005103' 





M1113 



90$ i 



01 -FEB - 


84 


18i55 




BNE 


DEC 




T360LY 




jBUMP DROP DEAD COUNTER 


BNE 




80$ 




iBR. IF THERE IS STILL TIME 


MOV 




*SbR,R2 




,SET UP EXPECTED 


CMP 




R1.R2 




jARE THEY EQUAL 


BEQ 




100$ 




j BR, IF OK 


INC 




FATFLG 




I ERROR COUNT 


ERRHRD 


ERRN0,T36WDE, 


.PKTSSR 


jTSSR INCORRECT AFTER READ DATA 










TRAP 



SEQ 199 



-20 



i.00$s CKLOOP 



110* 



CKLOOP 



120$ 



130*; 



lLOOP IF SELECTED 



.WORD 
.WORO 
.WC*D 

TRAP 



CIERHRD 
817 

T36WDE 
PKTSSR 

C$CLP1 



MOV 


LNITN.T36DSW 


BIS 


*RIT3,T36DSW 


MOV 


♦T36PACKET.R4 


JSR 


PC,URTCHR 


BCS 


110$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNQ.WRTMSG.SFIMSG 



I SET UP DRIVE NUMBER 

,25-APR-83 REV B - TURN OFF BUFFERING 

I SUBROUTINE NEEDS PACKET ADDRESS 

i ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

1 ERROR COUNT 
jSAVE CONTENTS OF TSSR 
1 WRITE CHARACTERISTIC 



LOOP IF SELECTED 



FAILED 




TRAP 


C$ERHRD 


.WORD 


818 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



RAP 



C$CLP1 



MOV 


03490. ,T36SZ 


MOV 


0140005, T36PK3 


MOV 


*T36PK3,R4 


CLR 


T36CNU 


MOV 


01000. .T560LY 


MOV 


R4,TSDB(R5) 


MOV 


TSSR(R5),R1 


BIT 


0SSR.R1 


BNE 


130$ 


INC 


T36CNU 


DELAY 


1 



jSLT SIZE OF TRANSFER 

jWRXTF DATA,ACK,CVC-1 COMMANO 

;SET UP R4 WITH PACKET ADDRESS 

j CLEAR COUNTER 

l SET OROP DEAD COUNTER VALUE 

i ISSUE COMMANO 

jGET TSSR CONTENTS 

I CHECK FOR S5R SET 

iBR. IF SSR IS SET 
COUNTER 
CF LOOPS DOWN 



l HUMP CYCLE 
I CUT NUMBER 







MOV 


01. (PC)* 






.WORD 









MOV 


L$DLY t (PC)> 






.WORD 









DEC 


6CPC) 






BNE 


. -4 






DEC 


-22CPC) 






BNE 


. -20 


DEC 


T 360L Y 


iBUMP DROP DEAD CO' INTER 




BNE 


120$ 


iBR. IF THERE IS Si ILL TIME 




MOV 


OSSR.Ri? 


iSET UP EXPECTEO 




CMP 


RI.R2 


j ARE THEY EQUAL 




DEO 


140$ 


jRR, IF OK 




INC 


FATFLG 


i ERROR COUNT 




ERRHRD 


ERRNO.WRTERR, PKTSSR 


j TSSR INCORRECT AFTER WRITE DATA 






TRAP 


C$F.RHRD 






.WORD 


819 






.WORD 


WRTERR 



TEST 1 HARDWARE TEST 1 8 TEST MACRO M1113 
TEST 8: RFCORD BUFFERING 



Flo 



01-FEB-84 18:55 



5655 

5636 

56? 7 
5658 
5659 
5640 
5644 



5645 
564 b 



5647 
5648 
5649 
5650 
5651 
565? 
565. S 
56t>4 
5655 
5656 
5657 
5658 
5659 



5660 
5661 
566? 
5665 
5665 
566 7 
5668 
5669 
56/0 
5671 
567? 
5675 
5674 
5675 
56 76 
5677 
5678 
5679 
5680 
5681 
5683 
5685 
5686 
566 V 



075542 
075544 
075544 
075346 
075552 
075556 
075360 
075562 
075566 
075566 
075570 
07557? 
075574 
075576 
075376 
075400 
75400 
075400 
075401' 
075410 
075412 
075416 



075416 
0754?? 
075424 
0754 50 
0754 50 
075450 
075432 



0754 54 
075440 
075440 
075442 
075444 
075446 
075450 
075450 
075452 
075454 
075456 
75460 
075462 



07S544 

075550 
075550 
C75552 



011736' 

104406 
0137C1 
C15702 
020102 
003406 
005237 

104456 
001464 
075624' 
015364* 

104406 



104403 
023727 
10340? 
004737 



140$; CK1.00P 



075616 
075620 



002214 



MOV 


T36CNTJU 


hOV 


T36CNU,32 


CMP 


R1.R2 


BLE 


300$ 


INC 


FATFLG 



300$: 



100004 
075450' 
000000 
000012 

075462 

ooocoo 

000024 
000000 
000000 



ERRHRD ERRNO , T36NAS , EXPREC 

CKLOOP 
ENDSUB 



002214' 000017 
017074* 



999$: 



CMP 
BIO 
JSR 



FATFLG. *1S 
999$ 

PC.CKOROP 



004737 016350 

10300? 

000137 073260 1 



104432 
003354 



X63$ 



JSR 
BCC 
JMP 

EXIT 



PC.TSTLOOP 

165$ 

T56L00P 

TST 



I LOCAL STORAGE FOR THIS TEST 



100006 
075600' 



.BLKB 


10 <. -TSV2£7> 


T36PACKET: 




.WORD 


100004 


.WORD 


T36DATA 


.WORD 





.WORD 


10, 


T36DATA: 




.WORD 


T36BFR 


.WORD 





.WOHD 


?0. 


.WORD 





T36DSW: .WORD 





T36BFR; . BLKU 


?5. 


tWRITE SUBSYSTEM MEMORY COMMAND PACKET 


.^LKB 


10 <•. -TSV267* 


T36PK2: 




.WORD 


100006 


.WORD 


T36BF? 



.WORD 
jLOOP IF SELECTED 

TRAP 
jGET FIRST COUNTER 
j GET SECOND COUNTER 
I25-APR-83 REV B - COMPARE EM 
I BR, IF VALUES ARE CORRECT (OK) 

j ERROR COUNT 
j TAPE NOT AT CCRRECT SPEED 

TRAP 



SEQ 200 

PKTSSR 
C$CLP1 



j LOOP IF SELECTED 



.WORD 

.WORD 

WORD 

TRAP 



L10072: 

TRAP 
ERROR COUNT AT ?5 
jBR, IF LESS THAN 25 
I TRY TO DROP THE UNIT 



iIS 



CIEP.HRD 
820 

T36NAS 
EXPREC 

CJCLP1 



CSESU8 



t D0 WE NEED TO ITERATE. TEST 
I BR, IF NO LOOP REQUIRED 
jEXECUTE AGAIN 



j ALL DONE THIS TEST 



TRAP 
.WORD 



CIEXIT 
L10070 



j COMMAND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND. WITH 

j ADDRESS Or CHARACTERISTICS BLOCK 

;STARTING VALUE OF P-LOC* SIZE 
jCHARACTERISTICS DATA BLOCK 
t ADDRESS OF MESSAGE BlFFER 

jLENGTH OF MESSAGE BUFFER 

i SELECT DRIVE 
l MESSAGE BUFFER 



ACK 



jWRITt: SUB SIS MfcM COMMAND. AND 
j ADDRESS OF SELECT BLOCK DATA 



ACK 



G16 



TEST 1 - HARDWARE TEST 1-8 TEST 
TEST 8; RECORD BUFFERING 



MACRO MU13 Ol-FEB -84 18:55 



SEG 201 



5688 

5689 

5690 

5692 

5694 

5695 

5696 

569 7 

5696 

5699 

5700 

5/01 

5 702 

5705 

5704 

5705 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5/23 

5724 

5/25 

5726 

5727 

5728 

5/29 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5 739 

5740 

5741 

5742 

5743 

5744 

5 745 

5746 



075554 
075556 

075560 
075570 
075570 
075572 
07557? 
075574 
075576 



75600 
075600 
075601 
075602 
075604 



75606 
075610 
075612 
075614 



075616 
0756^0 
07562* 



075624 
075675 
075763 
076032 
07612/ 
076211 
0762tol 
076336 
76417 
76453 
0^6525 
076620 
076675 
076754 
077031 
077100 
077153 



000000 
000006 



100005 

003U6 1 

000000 

000000 



010 
200 

oooooo 

000000 



100205 
100605 
102205 
177777 



OOOOOO 
OOOOOO 
OOOOOO 



11.1 

1P4 
124 

122 

120 
122 
124 
HI 
122 
124 
124 
127 
122 
124 
122 
122 
124 



155 
141 
123 

105 
117 
111 
123 
154 
105 
123 
141 
122 
105 
123 
145 
101 
123 



160 
160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
111 
122 
123 
167 
115 
123 



.WORD 
.WORD 6. 



.BLKB 



10-<. T SV267> 



.WORD 10^005 



FREE 







T36PK5 

T36RB: 
T36WB: 

T36SZ: 

i 

T36BF2 

T 368 SO 

T36BS1 

T36S2: 

T36S3: 

i 

J 

.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



.WORD 
.WORD 
.WORD 
,EVEN 



.BYTE 
.BfTE 
.WORD 
.WORD 



-SIZE OF DATA PACKET 

j REREAD COMMAND, AND ACK 
I ADDRESS OF WRITE BUFFER 
iSIZE OF BUFFER (EXTENT) 



•0 
200 
D 




iBSELO AREA 
iBSELl AREA 
jSEL 2 ArttA 
I DATA AREA 



T36RN. 
T36W0R: 

T36C0N: 



T36CNT: 
T36CNU: 
T36DLYJ 



.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 



100205 
100605 
102205 
177777 



jRERF.^L DATA CNLXT) 
iREREAD DATA RETRY 
iWRITE CONTINOUS 
jENO OF DATA 



jTmPE TIMER COUNTER STORAGE AREA 
i TAPE TIMER COUNTER STORAGE AREA 
jDELAY COUNTER 



i ♦ 

j LOCAL 

\ - 



T36NAS 
T36WNG 
T36R0F 
T36RRF 
T36SC: 
T36L0R 
T36WDF 
T36L0Q 
T36SSR 
T36W0E 
T36B0T 
T36TIM 
T36C0T 
T3oTM: 
T36RWN 
T36RNC 
T36AM3 



TEXT MESSAGES FOR TEST 



ASCIZ 'Improper Tap* Controller Buffering Speed' 

ASCIZ * Tap* Poeitlon Incorrect After REREAD Prtvlous tOPP-1)' 

ASCIZ ' TSSR Incorrect After READ DAIA Cownand* 

ASCIZ 'REREAD Previoua (Spaca Rtvtru, Raed Fornard) Co«vn»nd Failed 

ASCIZ 'POSITION (Spaca Co*wnand) Failed, TSSR Not Correct' 

ASCTZ 'mIB NOT SET AFTER READ REVERSE INTO BOT' 

ASCIZ • 1SSR Not Correct After Illegal Mod* Bits Set' 

ASCIZ 'Illegal Moie Bit*. Fat lad To Sat ILC Bit In XSTO' 

ASCIZ 'REREAD COMMAND Not Accepted' 

ASCIZ 'TSSR Not Correct Aftar WRITE DATA Co*wnand' 

ASCIZ 'Tapa Not At BOT After REWIND Ccxwwand (BOT Not Sat In XS r O)' 

ASCIZ 'WRITE DATA RETRY'* S Eraac Tapa Not Long Enoiiyh* 

ASCIZ 'REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

ASCIZ 'TSSR Not Correct After REREAD COMMANO Rajact' 

ASCIZ 'Rewind (POSITION) Command Not Accepted' 

ASCIZ 'RAM Error, Correct Data Pattern Not 1^ R om ' 

ASCIZ 'TSSR Init. Foiled After RERfcAD COMMANO 



-1.16 



TEST 1 • HARDWARE TEST 16 TEST MACRO M1113 
TEST 8: RECORD BUFFERING 



01-FEB-84 18{55 



SEQ 202 



5/4 7 

5748 

5749 

5750 

57^1 

5752 

5753 

5754 

5755 

5756 

5757 

5758 

5759 

5760 

5761 

5 762 

5763 

5 764 

5 765 

5766 

57u7 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 

5785 

5 786 

578 7 

5/88 

5789 

5790 

5791 

5 792 

5793 

5.94 

5/'*5 

5796 

5797 

5798 

5799 

5800 

5301 

5802 

r-»eo? 



077222 
077275 
077365 
077440 
077513 
077566 
077655 
077737 
100021 
100107 
100175 
100273 
100350 
100432 
100512 
100607 



100630 
100650 
100634 
10O640 
100644 
100650 
lOOtot? 
100656 
100662 
100664 
10067C 
100672 
100676 
100702 
100710 
100/12 
100716 
100720 



100722 
100722 
100/26 
100732 
100736 
100742 
100744 
100750 
100/52 
100756 
100760 
100/62 
100/64 



104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
122 



012701 
012721 
012721 
00502 L 

012721 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012/01 
012721 
012/21 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
123 
123 
141 
145 



151 
123 
123 
103 
102 
111 
141 
141 
163 
141 

111 
123 
123 
123 
164 
143 



075440' 

100004 

075450' 

000012 
075462' 

000024 

000000 
000030 
177777 075462 

000000 



075550* 
100006 
75600' 

000006 

0/5600' 



T360FL 
T36WDH 

T36WDC 
T36VCK 
T36BA; 
T36WSS 
T3bL0N 
T36L0P 
T36PBP 
T36TRL 
T36NEF 
T36SCF 
T36TSA 
T36WRF 
T36DTA 
TST36ID 



ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASC7Z 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCTZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 

EVEN 



Drive 7 Salect Failtd To Set 
TSS^ Not Correct After REREAD 
TSSR Not Correct After 
CVC Sat, Didn' ' t Reeet 
TSBA Not Correct After 
WRITE SUBSYSTFr MEMORY 
Reading Long Record Fail*©* 
Reading Long Record Fa J ltd 



SWB Bit Set' 



OFL" In TSSR' 
DATA Command, 
REREAD DATA Command' 
VCK In Maaaaoa Buffer' 
REREAD DATA Command' 
Command Not Accepted CRAM Read) 
To Set RLL Bit In XSTO' 
To Set RLS Bit In XSTO' 



Reel dual Bytn Count Incorrect After Short Record Read 

Readino Lono Record Failed To Give tope Statu* Alert' 

WRITE DATA RETRY, At Firat Record, Failed To Set RIB Bit XCT3 

TSSR Not Correct After SPACE RECORDS Command' 

TSSR Not Correct After WRITE DATA RETRY, Into BOT' 

TSSR Not Correct After WRITE DATA RETR Command 

Data Cofipare Error, Data Read From Tape Not Equal To Written' 

ASCIZ 'Record Buffering' 



jROUTINE TO RESTORE COMMAND PACKET 
i WRITE SUBSYSTEM MEMORY COMMAND 



TO START -UP (DEFAULT) VALUES 



1 
J - 






T36REST 


• 

*SAVREG 






MOV 


0T36PACKET.R1 




MOV 


0100004, (Rl)» 




MOV 


0T36DATA.CR1)* 




CLR 


(Rl)* 




MOV 


010, .CRD* 




MOV 


0T36BFR.CR1)* 




CLR 


CRD* 




MOV 


020. .CRD ♦ 




CLR 


(tfl)» 




MOV 


OO.CR1) 




MOV 


*2*. ,R2 


64$: 


MOV 


0177777, T36BFRCR2) 




TST 


-(R2) 




CMP 


00, R2 




BNE 


64$ 




R r S 


PC 


T36RT2: 


SAVRcG 






MOV 


0T36PK2,R1 




MOV 


0100006, (Rl). 




MOV 


0T36BF2,(R1)» 




CLR 


CR1). 




MOV 


06. ,CRt). 




CLR 


(R>.)» 




MOV 


0T36BK2.R1 




CLR 


CRDt 




CLR 


(Rl) 




RTS 


PC 


T36RT3i 







i SAVE THE REGISTERS 

jSTART OF 1ME PACKET 

iWRITE SUBSYSTEM MEM, WITH ACK , 

lADDRESS OF CHARAISTICS DATA BLOCK 

jEXTENOED ADOPESS 

iSIZE OF DATA BLOCK IN BYTES 

jADDRESS OF MESSAGE BLFFER 

ILK^JTH OF fESSAGE BUFFER 



TO BE CLEARED 
BUFFER 



jSLLECT DRIVE ZERO 

jNLTIBER OF LOCATIONS 

j ALL ONES TO MESSAGE 

jNEXT LOCATION 

jAT ENO Of LOOT >£T 

jKEEP GOING UNTIL DONE 

jRETURN 



jSAVE THE REGISTERS 

jSTART OF THE PACKET 

jWWITE SUBSYSTEM MEM. WITH ACK 

lADDRESS OF DATA BLOCK 

lEXTENO^O ADORESS 

jSIZE tt DATA BLOCK IN BY TES 

jPOINT TO DATA SEL AREA 



jRETURN 



lib 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 8: RECORD BUFFERING 



01-FEB-84 18:55 



SEQ 203 



5804 


100764 






5805 


100770 


012701 


075570' 


5806 


1007 74 


005021 




5807 


100776 


005021 




5808 


101000 


005021 




5809 


101002 


005011 




5810 


101004 


000207 




5811 


101006 
101006 








101006 


104401 




5812 








5813 








5814 








5815 








5816 








5817 








5818 








5819 








5820 








5821 








5823 








5823 








5824 








5825 








5826 








5827 








5828 


101010 
101010 






5829 


101010 


012737 


006166 1 002172' 


5830 


101016 


004737 


017166' 


5835 


101022 


012700 


10524 3' 


5836 


101026 


004737 


016402* 


5837 


101032 


012737 


000005 002.710* 


5838 


101040 


005037 


102306' 


5839 








5840 








5841 








5842 








584 3 








5844 








5845 








5846 








584 7 








5848 


101044 






5849 








5850 


101044 
101044 








101O44 


104402 




5851 


101046 


005037 


002216' 


5852 


101052 


005037 


102306' 


5853 


101056 


005037 


102310' 


5854 


101062 


004737 


105264' 


5855 


101066 


004737 


105556' 


5856 


101072 


004 73 7 


105420* 


5857 


101076 


012737 


1 76 750 102312 


5858 


101104 


00*73 7 


015664* 


5859 


101110 


103426 





SAVREG 




tlOV 


*T36PK3,R1 


CLR 


(Rl)* 


CLP 


(RO* 


CLR 


(Rl)* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





jSAVE REGISTERS 

I SET UP POINTER ADDRESS 

, COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

j SIZE OF DATA TRANSFER BLOCK 

jRETURN 



L 10070: 



TRAP 



C$ETST 



.SBTTL TEST 9; FUNCTION TIMING 



I 

{THIS TEST VERIFIES THAT THE TAPE TRANSPORT SEEMS TO BE WRITING 

{RECORDS, GAPS, AND EXTENDED GAPS OF THE PROPER LENGTH. BO^'H LOW 

lANO HIGH SPEED MOOES ARE TESTED. IT IS ALSO VERIFIED THAT A 

j SPACE RECORDS COMMANO WITH A RECORD COUNT C 80 CR MORE, AND A 

I SKIP TAPE MARKS COMMAND WITH A COLNT OF 2 OK MORE, OPERATE THE 

I TAPE IN HIGH-SPEED MOOE . THIS TEST CAN ONLY BE RUN IF A 

{REAL TIME CLOCK IS AVAILIABLE ON THE SYSTEM. THE TEST OPERATES BY 

j TIMING VARIOUS TAPE -MOTION OPERATIONS, USING A NUMBER OF 

{DIFFERENT TEST RECORD LENGTHS, 

i 

5 



BGNTST 



MOV 


♦EPRT1.EPRTSW 


JSR 


PC.KTOfT 


MOV 


♦T' T37ID.R0 


JSR 


PCTSTSETUP 


MOV 


♦5,L00PCNT 


CLR 


T37CNT 



T9; : 
{PRIMARY ERROR MECSAGE 

j TURN KT OFF 
■ ASCII MESSAGF. TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
{PERFORM 5 ITERATIONS 
iCLEAR TAPE RECORD COUNTER 



J ♦ 



i TEST 9, SUBTEST 1 



j 



T37L00P: 



BGNSUB 



>>>>>>>>>>>> 



BEGIN SUBTEST 
T9,l: 

TRAP 



»>>»>>>>>>•»» 



CSBSUB 



10$: 



CLR 


INTRECV 


CLR 


T37CNT 


CLR 


T37CNU 


JSR 


PC.T37REST 


JSR 


PCT37RT2 


JSR 


PC.T37RT3 


MOV 


#65000. .T37DLY 


JSR 


PC. SOT INI T 


BCS 


205 



t INTERRUPT INOICATOR 

{TIMER FOR WRITE DATA 

jTIMER FOR WRITE OATA 

jSET COMMANO PACKET 

iSET UP OTHER COMMAND 

|S"£T LV OTHER COMMANO 

{SET UT> DELAY COUNTER 

iDO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 



SPACING 
RETRY SPACING 

PACKET 
PACKET 



J16 



TEST 1 


HARDWARE TEST 


1-8 TEST MAC 


TEST 9; 


FUNCTION TIMING 


5860 


101112 








101112 


012727 


000250 




101116 


OOOOOO 






101120 


013727 


002116' 




101124 


OOOOOO 






101126 


005367 


177772 




101132 


001375 






101134 


005367 


177756 




101140 


001367 




5861 


101142 


005337 


102312' 


5862 


101146 


001356 




5863 


10115^ 


005237 


002214' 


5867 


101154 


010001 




5868 


101156 








101156 


104455 






101160 


0016 r -5 






101162 


003642' 






101164 


011724' 




5869 


101166 


013737 


002174' 102 


5870 








5871 


101174 


012704 


102130' 


5872 


101200 


004737 


010552' 


5873 


101204 


103407 




5874 


101206 


005237 


002214' 


5878 


101212 


010001 




5879 


101214 








101214 


104456 






101216 


001606 






101220 


005046' 






3 01222 


011724' 




5880 


101224 








101224 


104406 




5881 


101226 


004 73 7 


010704' 


5882 


101232 


1034 U 




5885 


101234 


016501 


000002 


5884 


101240 


010004 




5885 


101242 


005237 


002214' 


5889 


101246 








101246 


104456 






101250 


001607 






101252 


103465' 






101254 


011736' 




5890 


101256 








101256 


104406 




5891 


101260 


013701 


102160' 


5892 


10XTM 


010102 




5893 


101266 


052 702 


000002 


5894 


101272 


020102 




5895 


101274 


001406 




5896 


101276 


005237 


002214' 


5900 


101302 








101302 


104456 






10! 304 


001610 






101306 


103161' 






101310 


015364' 




5901 


101312 








101312 


1C4406 





M1113 Ol-FEB-84 16:55 



DELAY 



150' 20$: 



23$; 



30$: 



CKLOOP 

viSR 
BCS 
MOV 
MOV 
INC 
ERRHRD 



CKLOOP 



10$; 



CKLOOP 



R50 



DEC 


T37DLY 


BNE 


10$ 


INC 


FATFLG 


MOV 


R0.R1 


ERRDF 


LRRNO.SFISRR.SFIMSG 



MOV 


UNITN.T37DSW 


MOV 


*i"37PACKET,R4 


jSR 


PC.WRTCHR 


BCS 


23$ 


TNC 


FATFLG 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



PC, REWIND 

30$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRN0.T37RWN.PKTSSR 



MOV 


T37BFR.6.R1 


MOV 


R1.R2 


BIS 


06IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


INC 


FATFLG 


ERRHRD 


ERRN0,T37B0T,EXPREC 



jDELAY ABOUT ,25 SEC 



{BUMP COUNTER 

I BR, IF COUNTER NOT DONE 

{ERROR COUNT 
{CONTENTS OF TSSR REGISTER 



MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 



SEQ 204 



0250, C PC)* 



L$DLY,CPC)f 



-6CPC) 

. -4 

-22CPC) 

.-20 



{FATAL ERROR TSSR WAS 



{SET UP UNIT NUMBER 



NOT OK 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
901 

SFIERR 
SFIMSG 



\ SUBROUTINE NEEDS PACKET ADDRESS 
{ISSUE WRITE CHARACTERISTICS 
{BR, IF COMMAND ISSUED OK 

{ERROR COUNT 
{FAVE CONTENTS OF TSSR 
{WRITE CHARACTERISTIC 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

{LOOP IF SELECTED 

TRAP 

{CALL TAPE REWIND COMMAND 

iBR. IF NO PROBLEM 

{GET TSSR CONTENTS 

{GET PACKET ADDRESS 
{ERROR COLNT 

{REWIND NOT ACCEPTED 

TRAP 
.WORD 
.WORD 
. WORD 



CiERHRD 
902 

WRTMSG 
T.FIMSG 

C$CLP1 



{LOOP IF SELECTED 

{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP • REC'D 

{BR, IF EQUAL (OK) 

tERROR COUNT 
{TAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 



TRAP 



C$ERHRD 
903 

T37RWN 
PKTSSR 

C$CLP1 



REWIND 




TRAP 


C$tRHRD 


.WORD 


904 


.WORD 


T3 780T 


.WORD 


EXPREC 



TRAP 



C$CLP1 



K16 



TEST 1 - 
TEST 9: 

5902 
5905 
5904 
59013 
5906 
3907 
5908 
5909 
5910 
5911 
5912 
5913 
5917 



5916 

5919 
5920 
5921 
5922 
5923 
5924 
5925 
5929 



5931 
5932 
5933 
5934 
5935 
5936 
5940 



5941 

5942 
5943 
5944 
5945 
5946 
5947 



HARDWARE. 
FUNCTION 



TEST 1 
IIMING 



8 TEST MACRO M1113 01-FEB-84 18;55 



SEQ 205 



101314 
101320 
101326 
101334 
101340 
101346 
101352 
10J356 
101362 
10.1366 
101370 
101372 
101376 
101376 
101400 
101402 
101404 
101406 
101406 
501410 
101412 
101414 
101420 
101422 
101426 
101430 
101434 
101434 
101436 
101440 
101442 
101444 
101444 
101446 
101452 
101454 
101460 
101462 
101464 
101470 
101470 
101472 
1014/4 
101476 
101500 
101500 
101502 
101506 
101514 
101522 
101526 
101532 
101532 
101536 
101540 
101544 
101546 



012703 
013737 
012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
005237 

104456 
001611 
104021' 
011736' 

104406 
005303 
001345 
004737 
103411 
016501 
010004 
005237 

104456 
001612 
103465' 
011736' 

104406 
013701 
010102 
052702 
0203.02 
001406 
005237 

104456 
001613 
103161' 
015364' 

104406 
012704 
012737 
0^2737 
010465 
005237 

012727 
000000 
013727 
000000 
0053b7 



000144 

003116' 

140005 

102260' 

001130 

OCOOOO 

016140' 

000002 

000200 



002214' 



010704 
000002 
002214 



102160 
000002 



002214' 



102260' 

000037 

140010 

000000 

102306' 

000001 

002116' 

177772 



102262' 
102260' 

102266* 



65$; 



70$; 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
PEQ 
INC 
ERRHRD 



CKLOOP 

DEC 
BNE 
JSR 
BCS 
MOV 
MOV 
INC 
F.RRHRD 



130$; 



102262 
102260' 



140$; 



150$: 
152$; 



0100. ,R3 

FREE,T37WB 

0140005, T37PK3 

4T37PK3.R4 

0600, ,T37SZ 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

0SSR.R2 

R1.R2 

70$ 

FATFLG 

ERRNO,T37WDC,PKTSSR 



j NUMBER OF RECORDS TO BE WRITTEN 

I STARTING WRITE BUFFER ADDRESS 

jWRITE DATA,ACK,CVC-1 COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

I SET UP RECORD SIZc IN PACKET 

» ISSUE COMMAND 

j WAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

jSET \JP EXPECTED 

j ARE THEY EQUAL 

j BR, IF OK 

j ERROR COUNT 
;TSSR INCORRECT AFTER WRITE DATA 



R3 
65$ 

PC. REWIND 

130$ 

TSSR(R5),R1 

R0.R4 

FATFLG 

ERRNO.T37RWN, PKTSSR 



;L00P IF SELECTED 

TRAP 
j DEC RECORD COUNTER 
I BR, IF MORE RECORDS TO WRITE 
j CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
?GET TSSR CONTENTS 
jGET PACKET ADDRESS 

} F,RROR COUNT 
; REWIND NOT ACCEPTED 



TRAP 


C$ERHRD 


.WORD 


905 


.WORD 


T37WOC 


.WORD 


PKTSSR 



C$CLP1 







TRAP 


C$ERHRD 






.WORD 


*>06 






.WORD 


T37RWN 






.WORD 


PKTSSR 


CKLOOP 




.•LOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


T37BFR*6,R1 


jPICK UP XSTO 




MOV 


R1.R2 


j SET UP EXPECTED 




BIS 


0BIT1,R2 


;SET BOT BIT IN EXPECTED 




CMP 


R1.R2 


;DOES EXP » REC'D 




BEQ 


?40$ 


j BR, IF EQUAL (0!O 




INC 


FATFLG 


j ERROR £OUNT 




ERRHRD 


tRRNO,T37BOT,EXPREC 


iTAPE NOT AT BOT AFTER REWIND 








TRAP 


C$ERHRD 






.WORD 


907 






.WORD 


T37B0T 






.WORD 


EXPREC 


CKLOOP 




iLOOP IF SELECTED 








TRAP 


C$CLP1 


MOV 


OT37PK3.R4 


l SET UP PACKET ADDRESS 




MOV 


031. .T37RB 


;SET UP RECORDS TO SPACE OVER 




MOV 


0140010, T37PK3 


jACK,CVC-l, SPACE FORWARD COMMAND 


MOV 


R4.TSDBCR5) 


i ISSUE COMMAND 




INC 


T37CNT 


jBUMP TIMER 




DELAY 


1 


{DELAY ABOUT 1Q0US 








MOV 


01. (PC)* 






.WORD 









MOV 


LIOl.i.CPO* 






.WORD 









DEC 


-6CPC) 



L16 



TEST 1 - HARDWARE TEST 1-6 TEST MACRO M1113 
TEST 9: FUNCTION TIMING 



594 ft 
59.^ ) 
5950 
5951 
5952 
5953 
5954 
5958 



5959 

5960 
5961 
5962 
5963 
5964 
5968 



5969 

5970 
5971 
5972 
5973 
59 74 
5975 
5979 



5980 

5981 
5982 
5983 
5984 
5985 
5986 



5087 



101552 

101554 

101560 

101562 

101566 

101572 

101574 

101600 

101602 

101604 

101610 

101610 

101612 

101611 

lOliMS 

101620 

\01620 

101622 

101626 

101630 

101632 

101646 

101642 

101642 

101644 

101646 

101650 

101652 

101652 

101654 

101660 

101062 

101666 

101670 

101672 

101676 

101676 

101700 

101702 

101704 

101 /06 

1G1706 

101710 

101714 

101722 

101730 

101734 

101740 

101740 

101744 

101746 

101752 

101754 

101760 

101762 

101766 

101770 



001375 

005367 177756 

001367 

016501 000002 

032701 000200 

001755 

012702 000200 

020201 

001406 

005237 002214 • 

104456 
001614 
104727' 
011.736' 

104406 

004737 010704' 

103411 

0i0004 

016501 000002 

005237 002214' 

104456 
001615 
1C3465' 
011736' 

104406 

013701 102160 4 

010102 

052702 000002 

020102 

001406 

005237 0C2214' 

104456 
001616 
103161' 
015364' 

104406 

012704 102260' 

012737 000121 102262 

012737 140010 102260' 

010465 000000 

005237 102310' 



160$ j 



FEB-84 


18; 55 




SEQ 206 






t^NE 


. 4 






DEC 


-22CPC) 






BNE 


.-20 


MOV 


TSSR(R5),R1 


{GET TSSR 




BIT 


0SSR.R1 


» CHECK FUH TSSR'S SSR SET 




BEQ 


152$ 


(KEEP COUNTING UNTIL SET 




MOV 


<7SSR,R2 


j SET UP EXPECTED 




CMP 


R2.R1 


;WMS EVERYTHING OK 




BEQ 


160$ 


{BR, IF ALL IS WELL 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0.T373CF. PKTSSR 


{SPACE FORWARD DIDN'T WORK OUT 








TRAP 


C$ERHRD 






.WORD 


908 






.WORD 


T37SCF 






.WORD 


PKTSSR 


CKLOUP 




{LOOP IF SELECTED 








TRAP 


C*CLF1 


JSR 


PC, REWIND 


{CALL TAPE REWIND COMMAND 




BCS 


170$ 


{BR, IF NO PROBLEM 




MOV 


R0,R4 


{GET PACKET ADDRESS 




MOV 


TSSR(R5),R1 


{GET STATUS FROM TSSR 




INC 


FATFLG 


{ERROR COUNT 




ERRHRD 


ERRN0.T37RWN, PKTSSR 


{REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


909 






.WORD 


T37RWN 






.WORD 


PKTSSR 



170$: CKLOOP 



MOV 


T37BFR*6,R1 


j 


MOV 


R1.R2 


{ 


BIS 


«BIT1,R2 


{ 


CMP 


R1.R2 


J 


BEQ 


175$ 


{ 


INC 


FATFLG 




ERRHRD 


ERRN0.T37B0T.EXPREC 


1 



175$: CKLOOP 



250$: 
252$: 



012727 
000000 
013727 
000000 
005367 
001375 
00536 7 
001367 
016501 



000001 

002116' 

177772 

177756 

000002 



MOV 
MOV 
MOV 
MOV 
INC 
DELAY 



0T37PK3.R4 

#81. .T3 7RB 

0140010, T37PK3 

R4.T^0B(R5) 

T37CNU 

1 



{LOOP IF SELECTED 

PICK UP XSTO 

SET UP EXPECTED 

SET BOT BIT IN FXPECTED 

DOES EXP - REC'D 

BR, IF EQUAL (OK) 

jERROR COUNT 
TAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 

{SET UP PACKET ADDRESS 
tSET UP RECORDS TO SPACE 
{ACK.CVC-1, SPACE FORWARD 
{ISSUE COMMAND 
tBUMP TIMER 
{DELAY ABOUT 100US 



T RAP 



C$CLP1 



MOV 



TSSR(R5),R1 



GET TSSR 



REWIND 




TRAP 


C$ERHRD 


.WORD 


910 


.WORD 


T37B0T 


.WORD 


EXPREC 


TRAP 


CSCLP1 


E OVER 




D COMMAND 


MOV 


1 , ( PC) ► 


.WORD 





MOV 


L$0L1 ,(P 


.WORD 





DEC 


-6(PC) 


BNE 


. 4 


DEC 


-2JHPC) 


BNE 


,-20 



o* 



M16 



TEST 1 - 


HARDWARE IF ST 
FUNCTION TIMIN 


1-8 TEST 


TE5T 9: 


5988 


101774 


032701 


000200 


5989 


102000 


001755 




5990 


102002 


012702 


000200 


5991 


102006 


020201 




5992 


102010 


001406 




5993 


10201? 


005237 


002214' 


5997 


102016 








102016 


104456 






102020 


001617 






102022 


10472 7' 






102024 


011736' 




5998 


102026 








102026 


104406 




5999 


102030 


013701 


102306 


6000 


102034 


01370? 


102310' 


6001 


102040 


042701 


000077 


6002 


102044 


042702 


000077 


6003 


102050 


020102 




6004 


102052 


003406 




6005 


102054 


005237 


002214' 


6009 


102060 








102060 


104456 






102062 


001620 






102064 


103254' 






102066 


015364' 




6010 


102070 








102070 


104406 




6011 


102072 
102072 








1C2072 


104403 




6012 


102074 


023/27 


002214' 


6013 


102102 


103402 




6014 


102104 


004737 


017074' 


6015 


102110 






60*6 








601* 








6018 








6019 


102110 


004737 


016350' 


6020 


102114 


103002 




6021 


102116 


000137 


1010^4' 


6022 


\ 02122 






6023 


102122 








102122 


10443? 






102124 


003316 




6024 








6025 








6026 








6027 








6029 


102126 






6031 


102130 






6032 


10213C 


100004 




6033 


10213? 


102140' 




6C34 


102134 


000000 




6035 


102136 


000012 




6036 


102140 






603 7 


102140 


102152' 




6036 


102142 


000000 





Ol-FEB-84 18:55 



SEQ 2( 



260$: 



BIT 


4SSR.R1 




i CHECK FOR TSSR'S SSR SET 




BEG 


252$ 




j KEEP COUNTING UNTIL SET 




MOV 


#SSR,R2 




{SET UP EXPECTED 




CMP 


R2.R1 




j WAS EVERYTHING OK 




BEQ 


260$ 




j BR, IF ALL IS WELL 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T37SCF 


PKTSSR 


i SPACE FORWARD DIDN'T WORK OUT 

TRAP 
.WORD 
.WORD 
.WORD 


C*ERHRD 
911 
T37SCF 
PKTSSR 


CKLOOP 






{LOOP IF SELECTED 

TRAP 


CfCLPl 


MOV 


T37CNT.R1 




j TIME FOR WRITE SPACING 




MOV 


T37CNL\R2 




; TIME FOR WRITE RETRY SPACING 




BIC 


0000077 ,R1 




j SETTING UP CONSTANTS 




BIC 


0000077 ,R2 




{SETTING \P CONSTANTS 




CMP 


R1.R2 




{CHECK FOR DIFFERENCE 




BLE 


300$ 




;BR t IF GOOD SaSS CHECK 3386) 




INC 


FATFLG 




{ERROR COUNT 




ERRHRD 


ERRN0.T3/TIM 


,EXPREC 


{TIME WAS MOT DIFFERENT ENOUGH 





300$: 



000017 



999$: 



163$: 



CKLOOP 
ENDSUB 



CMP 
BLO 
vISR 



JSR 
BCC 
JMP 

EXIT 



FATFLG, #15. 

999$ 
PCCKDROP 



PC.TSTLOOP 

163$ 

T37L00P 

TST 



{LOCAL STORAGE FOR THIS TEST 



,BLKB 


lO-<. -T 


T37PACKET: 




.WORD 


100004 


.WORD 


T37DATA 


.WORD 





.WORD 


10. 


T37DATA: 




.WORD 


T37BFR 


.WORD 






i<<<< <<<<<<<<< 



I LOOP IF SELECTED 

END SUBTEST 
L10U74: 

TRAP 
ilS ERROR COUNT AT 25 
{BR. IF LESS THAN 25 
:TRY TO DROP THE UNIT 



t D0 WE NEED TO ITERATE TEST 
j8R, IF NO LOOP REQUIRED 
{EXECUTE AGAIN 



ENOUGH 




TRAP 


CSERHRD 


. UOrtD 


912 


.WORD 


T37TIM 


.WORD 


EXPREC 


TRAP 


C$CLP1 


ST > > >>>>> >>> >> 



C$ESUB 



{ALL DONE THIS TEST 



TRAP 
.WORO 



C$EXIT 
L 10073- 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH , AC»< 

{ADDRESS OF CHARACTERISTICS BLOCK 

.STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 





. ,.B1 


MSGSTAT - 


PRINT STAT.. 


. ,B5 


TEST 


2; 


SKIP 


TAPE 


M. 


...B9 


TEST 




. ..CI 


MSGSUB - 


PRINT WRITE. . 


. .C5 


TEST 


2: 


SKIP 


TAPE 


M, 


. . ,C9 


TEST 




• . .Dl 


PRAMPKT • 


PRINT RAM . . 


. .05 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .D9 


TEST 




. . .El 


PRMESS 


- PRINT CONT. . 


..E5 


TEST 


2: 


SKIP 


TAPE 


M. 


. . ,E9 


TEST 




. . .Fl 


PRMSGEXP 


- PRINT EXP.. 


,,F5 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .F9 


TEST 




. ..Gl 


PRMSGEXP 


- PRINT EXP. . 


. .G5 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .G9 


TEST 




. ..HI 


PRBYTEXP 


- PRINT ERR.. 


,.H5 


TEST 


2: 


SKIP 


TAP£ 


M. 


. ,,H9 


TEST 




...11 


RAMERR • 


• PRINT RAM . . 


. .15 


TEST 


2: 


SKIP 


TAPE 


M. 


. - .19 


TEST 




...Jl 


PAMT'DD ■ 


- PRINT TEST. . 


.,J5 


TEST 


2; 


SKIP 


TAPE 


M. 


. . ,J9 


TEST 




.. .Kl 


BADSSR - 


PRINT TSSR , . 


. ,l<5 


TEST 


2: 


SKIP 


TAPE 


M. 


. . ,K9 


TEST 




. ..LI 


SOFINIT - 


• SOFT INITI. 


. .L5 


TEST 


2: 


SKIP 


TAPE 


M. 


. . ,L9 


TEST 




. ..Ml 


CHKAMB - 


- CHECK TSSR. . 


..M5 


TEST 


2: 


SKIP 


■iAPE 


M. 


. . .M9 


TEST 




...Nl 


INTR 


• INTERRUPT .. 


..N5 


TEST 


2: 


SKIP 


TAPE 


M. 


. ..N9 


TEST 




. . .B2 


CHKTSSR 


- CHECK TSSR. , 


. .B6 


TEST 


2: 


SKIP 


TAPE 


M. 


, ..BIO 


TEST 




. ..C2 


TSTLOOP - 


- CHECK ITER., 


. .C6 


TEST 


2: 


SKIP 


TAPE 


M. 


. ..CIO 


TEST 




. . .02 


TSTSETUP 


- PRINT TES.. 


..D6 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .010 


TEST 


PROGRAM HEADER 


...E2 


TSTEND 


- PRINT ERRO. . 


. .E6 


TEST 


2: 


SKIP 


TAPE 


M. 


. ..E10 


TEST 


DISPATCH TABLE 


— Fa 


CKDROP 


- CHECK IF U.. 


..F6 


TEST 


2: 


SKIP 


TAPE 


M. 


. ..F10 


TEST 


SOFTWARE P- TABLE 


...G2 


SETMAP 


- SETUP PAR6. 


. .G6 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .G10 


TEST 


GLOBAL EQUATES SECTI 


...H2 


FILLMEM 


- FILL MEMOR,, 


. .H6 


TEST 


2: 


SKIP 


TAPE 


M. 


. . .H10 


TEST 


MEMORY MANAGEMENT DE 


...12 


CMPMEM 


- COMPARE ME., 


..16 


TEST 


2: 


SKIP 


TAPE 


M. 


. ..110 


TEST 


MEMORY MANAGEMENT DE 


. ..J2 


REGSAV 


- SAVE R1-R5. 


,.J6 


TEST 


3: 


NO-OP 


("CLt. 


. ..J10 


TEST 


TSU05 REGISTER ANO P 


K2 


GETPAT 


- GET 8 BIT . 


.,K6 


TEST 


3: 


NO-OP 


("CLE. 


. . .K10 


TEST 


TSU05 REGISTER ANO P 


L2 


GETSEL 


- ISSUE MENU. 


. .L6 


TEST 


3: 


NO-OP 


("CLE, 


. ..L10 


TEST 


TSU05 REGISTER AND P 


. . . . M2 


CHKMAN 


- CHECK MANU. 


. .M6 


TEST 


3; 


NO-OP 


("CLE. 


. . .M10 


iEST 


TSU05 REGISTER AND P 


N2 


KTINIT 


- SETUP KT11, 


. .N6 


TEST 


3: 


NO-OP 


("CLE. 


. . .N10 


TEST 


TSU05 REGISTER AND P 


63 


KTINIT 


- SETUP KT11. 


..B7 


TEST 


3: 


NO-OP 


( "CLE . 


. ..Bll 


TEST 


TSU05 REGISTER ANO P 


C3 


KTINIT 


- SETUP KT11. 


.,C7 


TEST 


3: 


NO-OP 


("CLE. 


. . ,C11 


TEST 


SPECIAL MACROS AND 


D3 


KTINIT 


- SETUP KTU. 


,.D? 


TEST 


3: 


NO-OP 


("CLE. 


. . .011 


TEST 


GLOBAL DATA SECTION 


E3 


INITIALIZE SECTION . 


,,E7 


TEST 


3- 


NO-OP 


("CLE. 


. . .Ell 


TEST 


TSTBLK - TEST DATA 


F3 


INITIALIZE SECTION , 


. .F7 


TEST 


3: 


NO-OP 


("CLE. 


. . .Fll 


TFST 


GLOBAL ENVIRONMENT S 


G3 


INITIALIZE SECTION . 


, .G7 


TEST 


4: 


ERASE 


AND 


0. 


. . .Gil 


TEST 


GLOBAL TEXT MESSAGES 


H3 


ADD AND 1 


3RGP WITS S. 


. .H7 


TEST 


4: 


ERASE 


AND 


0. 


. ..Hll 


TEST 


GLOBAL ERROtf REPORT 


13 


CLEAN-UP 


ANO REPORT . 


..17 


TEST 


4; 


ERASE 


ANO 


0, 


...111 


TEST 


PHTTSSR - PRINT TSSR 


J3 


CLEAN-UP 


ANO RcPORT . 


. ,J7 


TEST 


4: 


ERASE 


ANO 


0. 


. . .Jll 


TEST 


PHI I 1 , 'in PRINT TSSR 


. . ,K3 


CLEAN-UP 


ANO REPORT . 


, .K7 


TEST 


4: 


ERASE 


ANO 


0. 


. . .Kll 


TEST 


PRIPKi - PRINT THE 


. . . .1.3 


TEST 1: 


WRITE TAPE . 


. .L7 


TEST 


4: 


ERASE 


ANO 


0. 


. ..Lll 


TEST 


PRIBXOR - prin: lxpu 


M3 


Tr3T 1: 


WRITE TAPE . 


. .M7 


TEST 


4: 


ERASE 


AND 


0. 


. ..Mil 


TEST 


PRIXOP - PRINT EXPO 


N3 


TcST 1: 


WRITE TAPE . 


..N7 


TEST 


4: 


ERASE 


AND 


0. 


...Nil 


TEST 


PRIAOD - PRINT MEMO 


34 


TEST 1: 


WRITE TAPE . 


. . .08 


TEST 


4: 


ERASE 


ANO 


0. 


. ..812 


TEST 


PRITADD - PRINT MEMO 


. ...C4 


TEST 1; 


WRITE TAPE . 


. . .C8 


TEST 


4: 


ERASE 


ANO 


0. 


. . .C12 


TEST 


SPACE - SPACE RECO 


D4 


TEST 1: 


WRITE TAPE . 


. , .08 


TEST 


4: 


ERASE 


ANO 


0. 


. . .D12 


TEST 


URTCHR - WRITE CHAR 


E4 


TEST is 


WRITE TAOE . 


. . .E8 


TEST 


4: 


ERASE 


AND 


0. 


. . .E12 


TEST 


REWINO - POSITION T 


F4 


TEST 1: 


WRITE TAPE . 


. . .F8 


TEST 


4: 


ERASE 


AND 


0. 


. . .F12 


TEST 


CKRAM - COMPARE RA 


. . . . G4 


TEST 1: 


WRITE TAPE . 


. . .G8 


TEST 


5: 


DATA 


PARITY. 


. ..G12 


TEST 


CKRAM^ COMPARE RA 


H4 


TEST l, 


WRITE TAPE . 


. . .H8 


TEbT 


5: 


DATA 


PARITY . 


. . .H12 


TEST 


CKMSG - COMPARE WR 


14 


TEST 1: 


WRITE TAPE . 


. . .18 


TEST 


5: 


DATA 


PARITY. 


. . .112 


TEST 


CKMSC'k* - COMPARE EX 


. . . . J4 


TEST 1: 


WRITE TAPE . 


«8 


TEST 


f % . 


DATA 


PARI 


TY, 


. ..J12 


TEST 


CKMSG? - COMPARE EX 


K4 


TEST I: 


WRITE tAPE . 


. , .K8 


TEST 


t . 


DATA 


PARITY. 


. . .K12 


TEST 




. . .L.4 


TEST 2: 


SKIP TAPE M. 


. . .L8 


TEST 


5! 


DATA 


PARITY . 


. . .L12 


TEST 


PKTMES - PRINT TSSR 


. . . .M4 


TEST 2: 


SKIP TAPE h. 


. . , M8 


TEST 


5: 


DATA 


PARITY. 


. . .M12 


TEST 


riFEXP - PRINT FIFO 


N4 


TEST 2; 


SKIP TAPE M. 


. . .N8 


TEST 


5: 


DATA 


PARITY, 


...N12 





5: DATA PARITY B13 

6: OPERATIONS C13 

6: OPERATIONS D13 

6j OPERATIONS E13 

6; OPERATIONS F13 

6: OPERATIONS G13 

6: OPERATIONS H13 

6: OPERATIONS 113 

6; OPERATIONS J13 

6: OPERATIONS K13 

6: OPERATIONS L13 

6: OPERATIONS M13 

6: OPERATIONS . ...N13 



6: OPERATIONS ....814 

7; EXTENDED MO C14 

7: EXTENOED MO 014 

7: EXTENOED MO E14 

7: EXTENDED MO T14 

7: EXTENDED MO G14 

7; EXTENOED MO H14 

7«. EXTENOED MO 114 

7; EXTENDED MO J14 

7: EXTENDED MO K14 

7: EXTENDED MO L14 

7{ EXTENDED MO M14 

7: EXTENOED MO N14 



7: EXTENDED MO BIS 

7; EXTENOED MO C15 

7: EXTENOED MO 015 

7: EXTENDED MO E15 

7: EXTENOED MO F15 

7: EXTENOED MO G15 

7; EXTENDED MO HIS 

7; EXTENOED MO T15 

8: RECORD BUFF J15 

8; RECORD BUFF K15 

8: RECORD BUFF L15 

8: RECORD BUFF M15 

e; RECORD BUFF N15 



6; RcCORO BUFF B16 

8: RECORD BUFF C16 

8: RECORD BUFF 016 

8: RECORD BUFF E16 

8 j RECORD BUFF. v .F16 

8; RECORD BUFF G16 

8: RECORD BUFF H16 

6: RECORD BUFF 116 

9; FUNCTION TI. , . . J16 

9: FUNCTION TI K16 

9: FUNCTION TI. . . .Lib 

9- FUNCTION TI M16 



TEST 1 - HARDWARE TEST 1-8 TEST MACRO M1113 
TEST 9; FUNCTION TIMING 



Bl 



01-FEB-84 18i55 



6039 
6040 
6041 
6042 
6043 
6044 
6045 
604 7 
6049 
6050 
6051 
to052 
6053 
6054 
6056 
6056 
6059 
6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
60 76 
6077 
6078 
6079 
6080 
6061 
6082 
6083 
6084 
6085 
6086 
6067 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
609 7 
-6098 
6Q&9 



102144 
102146 
102150 
102152 



102234 
102240 
102240 
102242 
102244 

102246 

102250 
102260 
102260 
102262 
102262 
102264 
102266 



102270 
102270 
102271 
102272 
5.02274 



102276 
102300 
102302 
102304 



102306 
102310 
102312 



102314 
102402 
102451 
102546 
102630 
-102 700 

102/55 



000024 
000000 

000000 



100006 
102270 
OOOv/OO 
000006 



100005 

003116' 

OOOOOO 

000000 



010 

200 

OOOOOO 

OOOOOO 



100^05 
100605 
102205 
177777 



OOOOOO 
OOOOOO 

OOOOOO 



124 
124 
122 
120 
122 
124 

111 



141 
123 

105 
117 
111 
123 
154 



160 
123 
122 
123 
102 
125 



.WORD 
.WORD 
.WORD 
.BLKW 



20. 


25. 



T37DSW? 
T37BFR: 

l 

I WRITE SUBSYSTEM MEMORY 

.BLKB 
T57PK2: 



COMMAND PACKET 
10-<,-TSV2£7> 



T37PK3} 

T37RB: 

T37WB: 

T37SZ? 

i 
I 

T37BF2s 
T37BS05 
T37B51: 

T37S2: 
T37S3: 

I 
t 



.WORD 
.WORD 
.WORD 
.WORD 

.BLKB 

.WORD 

.WORD 
.WORD 
.WORD 
.EVEN 



.BYTE 
.BYTE 
.WORD 
.WORD 



100006 

T37BF2 



6. 

10-<.-TSV267> 

100005 

FREE 







10 
200 





.EVEN 
TAPE MOTIO.M PACKET 



COMMANO VALUES 



T37RN: .WORu 100205 

T37WOR: .WORD 100605 

T37C0N; .WORD 102205 

.WORD 177777 

T37CNT: .WORD 

T37CNU: .WORD 

T37DLYj .WORD 



I LOCAL 



TEXT MESSAGES FOR TEST 



SEQ 208 



jLENGTH OF MESSAGE BUFFER 

I SELECT DRIVE 
iMESSAGE BUFFER 



I WRITE SUB SYS MEM COMMAND, AND ACK 
I ADDRESS OF SELECT BLOCK DATA 

jSIZE C c r™:<\ PACKET 



j REREAD COMMAND, AND ACK 
lADDRESS OF WRITE BUFFER 
jSIZE OF BUFFER (EXTENT) 



»BSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
l DATA AREA 



, REREAD DATA (NEXT ; 
iREREAD DATA RETRY 
i WRITE CONTINOUS 
tENO OF DATA 



» TAPE TIMER COUNTER STORAGE AREA 
I TAPE TIMER COUNTER STORAGE AREA 
»DELAY COUNTER 



T37WNG: .ASCI/ ' Tape Portion Incorrect After REREAD Prtvlout (0PP-1>' 

T37RDFj .ASCIZ ' TSSR Incorrect After READ DAiA Command* 

T57RRF* .ASCIZ 'REREAD Previous (Space R*veraa, Read Forward) Command Failed 

T37SC: .ASCIZ 'POSITION (Space Command) F«iUcK TSSR Not Correct' 

T37LOR: .ASCIZ 'RIB NOT SET AFTER READ REVERSE INTO POT' 

T37WDF. .ASCIZ 'TSSR Not Correct Afte Illegal »&• Bite Set' 

T57LQQj t ASCIZ 'Xlltgal Mocte Bits* PfiiUd To Set ILC Bit In XSTQ* 



J11J V PORBVfBH IMM' 8 TEST MACR0 MU13 01 ™- M l «< 55 



CI 



SEQ 209 



6100 
M01 
• '.<\> 

-. ;e5 

610-1 

6105 
6106 
6107 
6108 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6116 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6L43 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
615? 
6153 
6154 
6155 
"6156 



103036 
103072 
103161 
103254 
103331 
103410 
103465 
103534 
10360 7 
103656 
103731 
104021 
104074 
104147 
104222 
104311 
104373 
104455 
10454 3 
104631 
104727 
105004 
105O66 
105146 
105243 



105264 
105264 
105270 
105274 
105300 
105304 
105306 
105312 
105316 
105320 
105324 
105326 
105332 
105336 
105344 
105346 
105352 
105354 



105356 

105356 

.105362 

"1Q5366 



124 
124 

i;.'7 

122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
127 
124 
124 
124 
104 
106 



012701 
012721 
012721 
005021 
012721 
01272) 
005021 
012721 
005021 
012711 
012702 
012762 
005742 
022702 
001371 
000207 



012701 
"012721 



105 
123 
141 
122 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
122 
123 
123 
123 
141 
165 



102130' 

100004 

102140' 

000012 
102152' 

000024 

000000 
000030 
IV 7777 

000000 



122 
123 
160 
111 
122 
1.23 
167 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
111 
123 
123 
123 
164 
156 



102152 



T37SSR: 

T37WDEt 

T37B0T; 

T37TIM: 

T37EOTj 

T37TM: 

T37RWN! 

T37RNC; 

T37AM3: 

T370FU 

T37WOO 

T37WOC 

T37VCK 

T378A: 

T37WSS 

T37L0N 

T37LOP 

T37PBP 

T37TRL 

T37NEF 

T37SCF 

T37TSA 

T37WRF 

T370TA 

TST37ID: 

I ♦ 



.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.asciz 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.Asnz 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



REREAD COMMANO Not Accepted' 

TSSR Hot Correct Afttr WRITE DATA RETRY Command, At BOT' 
lepe Not At BOT After REWIND Command CBOT Not Set In XSTO) 
WRITE DATA RETRY' 'S Era** Tap* Not Long Enough' 
REREAD DATA OVER EOT GAVE NO TAPE STATUS ALERT' 
TSSR Not Correct Aft*r REREAD COMMANO Reject* 
Rewind (POSITION) CfrMimnd Not Acc*pt*d' 
RAM Error, Correct Data °attern Not In Ram' 
TSSR Inlt. Failed After REREAD COMMANO' 
Driv* 7 S*lect Fa J led To Set "OFL" In TSSR' 
TSSP Not Correct After REREAD DATA Command, SUB Bit Set* 

REREAD OATA Command' 
VCK In Meaeaoo Buffer* 
REREAD DATA Command' 
Command Not Acceptec (RAM Read)' 
Failed To Set RU. Bit In XSTO' 
Failed To Set RLS Bit Xo XSTO' 



TSSR Not Correct After 
CVC Set, Didn' 't Reaet 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Reading Long Record 
Reading Long Record 



*9 ' 
Ree»dual Byte Count Incorrect After Short Record Read' 

Readino Long Record Failed To Giv* Tap* Stntuu Alert' 

WRITE OATA RETRY, At Fir*t R«cord, Failed To Set RIB Bit XST3 

TSSR Not Correct After SPACE RECOROS Command 1 

TSSR Not Correct After WrflTE DATA RETRY, Into 80T' 

TSSR Not. Correct After WRITE DATA RETRY Command* 

Data Compare Error, Data Read From Tape Not Equal To Written' 

ASCIZ 'Function Timing' 



^ROUTINE TO RESTORE COMMANO PACKET TO START -UP (DEFAULT) VALUES 
I WRITE SUBSYSTEM MEMORY COMMAND 



j SAVE THE REGISTERS 

jSTART OF THE PACKET 

jWRITE SUBS'- STEM MEM. WITH ACK, 

I ADDRESS OF CHARAISTICS DATA BLOCK 

lEXTENOEO ADDRESS 

iSIZE OF OATA BLOCK IN BYTES 

l ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 



102240' 
100006 



} 
I - 




T37REST{ 




SAVREG 




MOV 


*T37PACKET,R1 


MOV 


♦100004. (Rl)> 


MOV 


OT37DATA,(Rl)f 


CLR 


(Ri)* 


MOV 


010.,(Ri)» 


MOV 


0TS7BFR,(R1)* 


CLR 


(Rl)* 


MOV 


020.,(R1)» 


CIR 


CRD* 


MOV 


00. (Rl) 


MOV 


024. ,R2 


64$ j MOV 


0177777, T37BFRCR2) 


TST 


(R2) 


CMP 


00, R2 


BNE 


641 


RTS 


PC 


U?RT2i 




SAVREQ 




MOV 


OT37PK2.R1 


MQV 


tiQQQQfriCRi)* 



TO BE CLEARED 
BUFFER 



i SELECT DRIVE ZERO 

tNUhBER OF LOCATIONS 

i ALL ONES TO MESSAGE 

iNEXT LOCATION 

.AT ENO OF LOOP YET 

iKEEP GOING UNTIL DONE 

iRETURN 



jSAVF THE REGISTERS 
i START OF THE PACKET 

iWBXTt SUBSTSTEM MEM. WITH ACK 



fin l 9 : - mmm mu- B test macro mui3 oi - febm "«5* 



di 



StQ 210 



6157 


105372 


012721 


615tt 


105376 


005021 


6159 


105400 


012721 


6160 


105404 


005021 


6161 


105406 


012701 


6162 


105412 


005021 


6163 


105414 


005011 


6164 


105416 


000207 


6165 


105420 




6166 


105420 




6167 


105424 


012701 


ol68 


105430 


005021 


6169 


10543? 


005021 


6170 


105434 


005021 


6171 


1054 36 


005011 


6172 


105A40 


000207 


6173 


105*42 

105442 






105442 


104401 


6174 


105444 





102270 
000006 
102270 



T37RT3i 



102260' 



MOV 
CLR 
MOV 
CLR 
MOV 
CLR 
CLR 
RTS 

SAVREG 

MOV 

CLR 

CLR 

CLR 

CLR 

RTS 

ENDTST 



ENOMOD 



«T57BF2,CR1)* 

(Rl)» 

W>.,<R1)» 

(Rl)* 

«T37BF2,R1 

(Rl)* 

(Rl) 

PC 



OT37PK3.R1 

(Rl)» 

(Rl)» 

(Rl). 

fRl) 

PC 



jADDRESS OF DATA BLOCK 

lEXTLNOCD ADDRESS 

iSIZE OF DATA BlOCK IN BYTES 

jPOINT TO DATA SEL AREA 



j RE TURN 

jSAVE REGISTERS 

»SET UP POINTER ADDRESS 

i COMMAND SPACE 

lADDRESS OF DATA BLOCK 

lEXTCNDED ADDRESS 

I SUE OF DATA TRANSFER BLOCK 

jRETURN 



L 1.0073: 



TRAP 



CSETST 
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TEST 9; FUNCTION TIMING 
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El 



SEQ 211 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
41 
50 
51 
52 
53 



54 
55 



105444 
105444 



1 

7 
12 
18 
19 

20 

21 

"i ~> 

%-C 

23 
24 
25 

26 

i ■» 

28 

29 

30 

31 

32 105444 
105444 
105446 

33 

34 105446 
105446 
105450 
105452 
105454 

35 105456 
105456 
105460 
105462 
105464 

36 

37 105466 



105466 
105466 
105522 
105546 



105576 
105576 
105600 

105600 
105600 



TSV6: j 



♦TITLE TSV6 - PARAMETER CODING 



BGNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT £RE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000010 



000031 
105466' 
160010 
177776 

001031 
105522' 
000000 
000776 



104 
13 1 
111 



L SHARD 5; 



BGNHRD 

.WORD L10075-LIHARD/2 



105 
116 
lib 



L10075: 



126 HPM 4 . 
124 HPfi2 
124 HFM3 



GPRMA HPM1, 0,0, 160010,177776, YES 

.WORD T I CODE 

.WORD HTM1 

.WORD UL0L1M 

.V'ORD TIHILIM 

GPRMA HPM2,2,0.0,776,YE5 

.WOPD TICODE 

.WORD HPM2 

.WORD T1L0LIM 

.WORD TtMlLlM 

1 GPRMD HPM3 , 4 , , 340 , , V , YE S 

ENDHRD 

.EVEN 

.ASCIZ 'DEVICE ADDRESS (TSBA/TSDB) 

.ASCIZ 'INTERRUPT VECTOR 

. 1SCIZ 'INTERRUPT PRIORITY 
.t'VEN 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



{GET TSBA/T5DB REGISTER ADDRESS. 



iGET VECTOR ADDRESS. 



jCET INTERRUPT PRIORITY. 



MACROS 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS 
THAT ARE USED B> fME SUPERVISOR TO BUILD P- TABLES. THE. 
MACROS ARE NOT EXECUTED AS MACHINE. INSTRUCTIONS OUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



000003 



001130 





BGNSF T 




.WORD L10076-LIS0FT/2 


L$SQFTj 




f 


GPRML SPM1, 0,-1, YES 




GPRML SPM4, 2,-1, YES 




.WORD UCODE 



GET 
GET 



TRANSPORT 
ITERATION 



TEST FLAG 
CONTROL. 
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SOFTWARE PARAMETER CODING SECTION 



K 1 
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105602 
105604 
56 

58 105606 

105606 
59 
60 

61 105606 

62 105636 
63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 105666 

75 

76 

77 105666 

/d 

79 
30 
81 
«2 1056 70 

105670 
105672 
105674 

83 10 V J674 

84 

85 

86 

86 105674 

89 1C5674 
105674 
1056 76 
105700 

90 105700 

91 105702 

92 105704 

93 105706 
105706 

94 U&IQfi- 
95 

9fc 



105636 
177777 



105 
111 



116 
116 



101 
HO 



000000 
000000 



000000 
000003 

172522 
000224 
000240 



000004 



SEQ 212 



L 10076: 



SPM1: 
SPM4; 
jSPM6; 
tSPM7{ 



.WORD 

.UORD 

GPRMD 

GPRMD 

ENDSFT 

.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
, SBTTL 



SPM4 

-1 

SPM6, 4,0,7777, 0.7777, YES 

SPM7,6,D, 7777, 0,7777, YES 



j GET LOCAL. ERROR LIMIT 
I GET GLOBAL ERROR LIMIT 



'ENABLE TRANSPORT TESTS 
* INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
•PER UNIT ERROR LIMIT 
PATCH AREA 



i FINALLY A GENEROUS PATCH AREA. 

J 

j ANO AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 

; DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 

i 



PATCH} 

J 



.BLKW 
.BLKW 



32, 
1. 



LSLASTj j 



.IF NZ..&377 
.■.!377*1 

.ENOC 

LASTAD 

.EVEN 

.WORD 

.WORD 



iSET LAST USED ADDRESS. 








ENOMOO 
.SBTTL 



J 
I - • 



L10077: 



LiOlOii 



HARD CODED P TABLE 
DIAGNOSTIC IS PRE -PARAMETER U£0 PER THIS TABLE 

BGNSETUP 1 

BGNPTAB 

.WORD 

.WORD L1Q10W2-1 



.WORD 
.WORD 
.WORD 
E NOP TAB 

tNDSE T,yg 

.END, 



W2522 
224 

PRXQ5 



G 1 



TSV6 - 
SYMBOL 

ADDSSR 

ADR 

AM8TSS 

ASSEMB 

A1716 

BADDAT 

BADSSR 

BDVPCR 

BEN8SW 

BiE 

BITO 

BITOO 

BITOl 

BIT02 

BIT03 

BIT04 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

BIT1 

BITIO 

Birn 

BIT12 
BIT13 
r '14 

b: 15 

BIT2 

BIT3 

BIT4 

BIT- 

Bllb 

B1T7 

BIT8 

BIT9 

BOE 

BRINIT 

PSELO 

BSEL1 

CHKAMB 

CHKMAN 

CHKTSS 

CKD30P 

CKEMAX 

CKMSG 

CKMSG2 

CKRAM 

CKHAM2 

CMOPKT 

CMP MEM 

CONFIG 

COUNT 

CSRADD 

CTAB 

CTABf. 

CTABM 



PARAMETER 
TABLE 

012016RG 

- 000020 G 
006525R 

- 000010 
■ 000003 

003150RG 
015570RG 
• W7520 G 
002222RG 
040000 
000001 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000002 
002000 
004000 
010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000400 
00444 7R 
000000 
01*0001 
01S734R 
0204 OORG 
016226R 
017074R 
016774R 
011250RG 
011370RG 
OU 004 RG 
011U4RG 
021070RG 
017560R 
017142R 
002302RG 
002200RG 
003156RG 
0031 70RG 
003156RG 
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SEQ 213 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



002 
002 



002 
002 

002 



002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



ClAU 

CIAUTO 

CiBRK 

CIBSEG 

C*BS18 

CICEFG 

CICLCK 

OCLEA 

CJCLOS 

CICLP1 

CICVEC 

CIDCIN 

CIDODU 

CIDRPT 

CiDU 

CIEDIT 

CIERDF 

CiERHR 

C$ERR0 

CiERSF 

CIERSO 

CIESCA 

CiESEG 

CIESUB 

CiETST 

CIEXIT 

CIGETB 

CIGETW 

CtGMAN 

CIGPHR 

CIGPLO 

CIGPRI 
CilNIT 
CIINLP 
CIMANI 

CIMEM 

CfMSG 
CIOPEN 

CIPNTB 
ClPNTF 

CIPNTS 

CIPNTX 

CIQIO 

CIRD6U 

CIREFG 

CIRESE 

CIREVI 

CIRFLA 

CIRPT 

CISEFG 

CISPRI 

CISVEC 

CHPRI 

DATA 

DATASC 

DEBUGM 

DEVCNT 



000052 

000061 

000022 

000004 

000002 

000045 

000062 

000012 

000035 

000006 

000036 

000044 

000051 

000024 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

00<XK)3 

000001 

000032 

000026 

000027 

000043 

000042 

000030 

000040 

00001 i 

000020 

000050 

00C031 

000023 

000034 

000014 

000017 

000016 

000015 

000377 

000007 

000047 

000033 

000003 

000021 

000025 

000046 

000041 

000037 

000013 

002304RG 

0201 32R 

011522R 

002212RG 



002 
002 
002 
002 



DEVDRO 

DEVNRD 

DEVNXR 

DEVONL 

DEVSUM 

DFPTBL 

DIAGMC- 

DICED - 

DSBiNT 

DUADlc 

DUFLG 

DUMMY 

EF.CON- 

EF.NEU- 

EF.PWR* 

EF.RES- 

EF.STA* 

EMAXDU 

EN 

ENAINT 

ENVIRN 

EPRTSW 

EPRTl 

£PRT2 

ERCM 

ERRHI 

ERRK 

ERRLO 

ERRNO - 

ERRVEC- 

EPTABE 

EI.TABL 

ESUM 

EVL 

EXBCNT« 

EXPBRE 

EXPO 

EXPGOT 

EXPGT2 

EXPMSG 

EXPREC 

EXTA 

EXTEND 

EXTFEA 

EIENO • 

EUOAO- 

FATERR- 

FATFLG 

FERCM 

FIFEXP 

F IF IMS 

FIF2MS 

FILLME 

FNOINT 

FORCER 

FREE 

FREEHI 



023226* 
023145R 
023067R 

0230i:;r 

02275>>R 

00215 >RG 

000000 

C 00001 

016074R 

004633R 

003104RG 

003054R 

000036 G 

000035 

000034 

000037 

000040 

016671R 

00 0000 

016042K 

O2053OR 

002I72RG 

006166R 

006225R 

OU623R 

002230RG 

016650P 

0022 32RG 

001620 

000004 G 

003370R 

003170R 

016652R 

000004 G 

000010 

015372RG 

002224RG 

004523R 

00455 7R 

002314RG 

015364RG 

005600R 

005576R 

C02220RG 

002100 

OOC035 

000060 

002S14RG 

011612R 

012060RG 

012132R 

012201R 

017314R 

004205R 

0021 70RG 

0031 16RG 

003122R 



002 
002 
002 
002 
002 
002 



002 

002 
002 
002 



002 

002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 

002 



002 
002 
002 
002 
00.? 
007 
00c 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
0C2 



FRESIZ 

FUSI 

FIAU 

F I AUTO 

FIBGN 

FICLEA 

FIDU 

FIEND 

FIHARD 

F$HW 

F1INIT 

F$JMP 

r*MOD 

KIHSG 

FIPROI 

FIPWR 

FIRPT 

FISEG 

FISOFT 

FISRV 

F$sue 

FISW 

FITEST 
GDDAT 

gerrm;, 

GETPA* 
GETSE . 
GftCNTQ 

GIDEtM 
GIDISP 

giexcp 

GIHILI 
GI'.OLI 

GINO 

gioffs 

GIOFSI 

GIPRMA 

GIPRMO 

GiPRML 

GIRADA 

GIRAD6 

GIRADD 

GIRADl 

GIRADD 

GIXFER 

GIVES 

HIADOR 

HOE 

HPM1 

HPM2 

HPM3 

IBE 

IDU 

IER 

IFAULT 

INCERK 

INTCPC 



003120RG 

004107R 

000015 

000020 

000040 

000007 

000016 

00004 1 

000004 

000013 

000006 

000050 

000000 

< ooou 

000021 

000017 

000012 

000003 

000005 

000010 

000002 

000014 

000001 

003152RG 

002166RG 

020074RG 

020156RG 

000200 

COJ37c? 

000003 

000400 

0O0002 

000001 

OCWDOOO 

000400 

OC0376 

000001 

000002 

000000 

000140 

OOOOOO 

00u0*0 

00-? 120 

OOC020 

0000 Oh 

000010 

001400 

100000 G 

i05466R 

105522R 

10SS46R 

010000 G 
000040 G 
020000 G 
004246R 
016736R 
016040R 



002 
002 



002 
002 
002 
002 



002 
002 
002 



002 
002 
002 



INTFLA 

INTMA5 

INTR 

INTREC 

INTVEC 

INTX 

INVERT 

IOKCKI 

IOKSTP 

IPRI 

ISR 

IVEC 

IXE 

IIAU 

IIAUTO 

IICLN 

IIDU 

IIHRO 

IIINIT 

IIMOD 

IIM5G 

IIPROT 

1IPTAB 

IIPWR 

IIRPT 

IISEG 

IISETU 

ItSFT 

1ISRV 

1 1 SU? 

IITST 

JIJM" 

KIPAPO 

KIPAP1 

KIPAR2 

KIPMR3 

K1PAR4 

KIPAR5 

KIPARS 

KIPAR7 

KIPDRO 

KIPDR1 

KIPDR2 

S IPDR3 

KIPDR4 

KIPDR5 

KIPDR6 

KIPDR7 

KTENAB 

KTFLG 

KTINIT 

KTOFF 

KTON 
LERRMA 
I ISTAL- 
LOE 
LOOPCN 



016035R 

016034R 

016106RG 

002216RG 

016036R 

004270R 

021014RG 

000200 

000001 

002204RG 

000100 G 

002202PG 

004000 G 

00004 1 

000041 

00004 1 

000041 

00004 1 

000041 

000041 

000041 

000040 

00004 1 

0OO041 

000041 

000041 

000041 

000041 

000O11 

000041 

000041 

000167 

172340 

172342 

172344 

1/2 34* 

172350 

172352 

172354 

172356 

172300 

172302 

172304 

172306 

172310 

172312 

172314 

172316 

003126RG 

0031J4RG 

O2O016R 

017166R 

017150R 

OOcl'iAMG 

00000 I 

040000 G 

00221 ORG 



002 
002 
002 
002 
002 
002 
002 



002 
002 



002 
002 
002 

002 
002 
002 



002 
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SYMBOL TABLE 



HI 
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5EQ 214 



LOOPCO 

LOOPFL 

LOT 

L$ACP 

L$APT 

L$AU 

L$AUT 

l.SAUTO 

l.iCCP 

L$CLEA 

L*CO 

L*DEPO 

LSOESC 

LtOESP 

LJDEVP 

LSDISP 

L$DLY 

L$DTP 

L$DTYP 

L$OU 

LJDUT 

L*DVTY 

L$EF 

LSENVI 

LiETP 

L$EXP1 

LSEXP4 

L$EXP5 

L. SHARD 

L$HIME 

L$HPCP 

LSHPTP 

L*HU 

L$ICP 

LJINIT 

L*LADP 

LSLAST 

LILOAO 

1.1LUN 

LJMREV 

L$ NAME 

LSPRIO 

LSPROT 

L*PRT 

LtREPP 

LtREV 

LiRPT 

LiSOFT 

L$SPC 

LtSPCP 

LiSTA 

USUI 

LiTEST 

LUIML 

LSUNIT 

UQOOQ 



013016R 

003154RG 

OOOOIO G 

0021 10RG 

002036RG 

022202RG 

002070RG 

022406RG 

002106RG 

022466RG 

002032RG 

0020 11RG 

003402RG 

002076RG 

00206 ORG 

002124RG 

0021 16RG 

00204 ORG 

002034RG 

022300RG 

002072RG 

003374RG 

002052RG 

002044RG 

002102RG 

00204 6RG 

002064RG 

002066RG 

105446RG 

002120Ro 

002016RG 

002022RG 

002150RG 

002104RG 

021406RG 

002026RG 

105674RC 

002100RG 

002074RG 

002050RG 

002000RG 

002042RG 

021376RG 

002112RG 

002062RG 

002010RG 

022514RG 

105600RG 

002056RG 

002020RG 

002024RG 

002030RG 

002160R r , 

00c:114RG 

0020 14RG 

002012RG 

002156R 



002 
002 

002 
002 
002 
002 
002 
002 
002 
002 

oo;> 

00;* 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 

002 L 

C02 L 

005 I. 
L 
L 
L 
L 
L 



002 
002 
002 
002 
002 
002 I 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



10001 
10002 
10003 
10004 
10005 

10006 

10007 

10010 

10011 

10012 

10013 

10014 

10015 

10016 

10017 

10020 

10021 

10022 

10023 

10024 

10025 

10026 

10030 

10031 

10032 

10033 

10034 

10035 

10036 

10037 

10040 

10041 

10042 

10043 

10044 

10045 

10046 

10047 

10050 

100'.>i 

10052 

10053 

10054 

10055 

10056 

10057 

10060 

10061 

10062 

10063 

10064 

100*5 

10066 

1006 7 

10070 

10C71 

10072 



0021 70R 
005574R 
011734R 
011752R 
011770R 
011776* 
012014R 
012032R 
012056R 
012130R 
012300R 
013014R 
013642R 
013664R 
015370R 
015376R 
0154 04R 
015416R 
0154*0R 
015466R 
015626H 
016136R 
0221 32R 
022276F< 
022404R 
022464R 
022512R 
022754R 
032112R 
023740P 
024462R 
025206R 
026030R 
041220R 
033514R 
035140R 
035534R 
0S6220R 
046576R 
042U2R 
042724R 
052664R 
04 7452R 
050262R 
051076R 
055700R 
054342R 
063262R 
060336R 
073222R 
064 3 54 R 
0654 34R 
0662 76R 
06720OR 
101006R 
074316R 
075400R 



002 L 10073 
002 L 10074 
002 L 10075 
002 L 10076 
0C2 L 10077 
002 L10101 
002 MEMADD 
002 MEMCK 
002 MENASC 
002 MENURR 
002 MENRES 
002 MMRO - 
002 MMVEC - 
002 MSA.FR- 
002 MSA, NO- 
002 MSA.NR- 
002 MSA>V0- 
002 MSGEXP 
002 MSGLOO 
002 MSGSTA 
002 MSGSU6 
002 MS, ATT- 
002 MS. EXT- 
002 MS.R'iD- 
002 MS.KSF- 
002 MS.RST- 
002 NBA 
002 NEWPAS 
002 NOOEV 
002 NOINIT 
002 NOINTR 
002 NOITS 
002 NOMAN 
002 NOMEM 
002 NP.IR - 
002 MP. LOO- 
002 NP.OUT- 
002 NP.WRP- 
002 NSI 
002 NSINIT 
002 NUL 
002 hKACR 
002 NXM 
002 NXMFLG 
002 NXMHI 
002 NXMLO 
002 NXMTST 
002 NXR 
002 NXRERR 
002 NXRX 
002 NXTU 
002 OFL 
002 ONEFIL- 
002 OlAPTS- 
002 OIAU • 
002 OIBGNR- 
002 OIBGNS* 



105442R 

102072R 

105466R 

105606R 

105700R 

105706R 

013644RG 

021106RG 

02034 7R 

020274R 

020376R 

170200 

000250 

000006 

000000 

000004 

000002 

012034RG 

012754RG 

012240RG 

013632RG 

000006 

000200 

000001 

000020 

000010 

002000 

02 164 OR 

003106RG 

0O4325R 

004211R 

002162RG 

020434R 

005450R 

000200 

000040 

000100 

000020 

004142R 

004'. 7 ?R 

00451 VR 

004520R 

004000 

003130RG 

003134RG 

003132RG 

021302R 

00^7 30R 

005544RG 

003767R 

021652R 

000100 

000000 

000000 

000001 

000001 

000001 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 

002 
002 
002 
002 
002 
002 
002 
002 



OIDU 

0*ERRT 

OIGNSW 

OIPOIN 

OISETU 

PASRPT 

PATCH 

PATDAT 

PC. ERA 

PC.IER 

PC.NOO 

PC.REL 

PC.REW 

PK6CNT 

PKHI 

PKLOW 

PKTADD 

OKTFRM 

PKTGET 

PKTMES 

PKTRAM 

PKTSSR 

PNT 

PRAMP:'. 

PRASC 

PRBEXP 

PROMSG 

PR8REC 

PRBTOT 

PRBYTE 

PR I 

PRIAOD 

PRIAO 

PRIBXO 

PRIEQU 

PRIPKT 

PRIRAM 

PRITAO 

PRITSS 

PRITO 

PRIT1 

PRIXOR 

PRIOO 

PRI01 

PRI02 

PRI03 

PRI04 

PRI05 

PRI06 

PRI07 

PRMESS 

PRMNO 

PRMSGE 

PRMSGO 

PRMSG1 

PRMSG2 

PROASC 



000001 

000000 

OC0001 

OOC001 

000000 

021704R 

105666RG 

020130R 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000002 

007444R 

007A06R 

011754RG 

012000RG 

004 735RG 

011736RG 

OOIOOO G 

013666R 

014413R 

015360R 

015226R 

0153&2R 

015313R 

015012RG 

002000 G 

010050R 

010120R 

007502RG 

007750P 

007260RG 

007 756R 

010164R 

005632R 

010246R 

010311R 

007632RG 

000000 G 

000040 

000100 

000140 

000200 

000240 

000300 

000 3<0 

014132R 

002312RG 

014442RG 

014622R 

014667R 

014 725R 

014310R 



PR1ASC 
PST32U 

pwnit 

FM.D11 

FW.013 

002 PW.D22 

002 PW.NOP 

002 PW.N01 

PW.ROE 

PW.ROR 

PW.RDS 

PW.RFI 

pw.yct 

PU.^FM 
PU.UHI 

002 pu.uiK' 
002 PU. UTrf 
002 P.ACK 
002 ~.CMD 
002 P.CONT 
002 P.CVC 
P.FMT 
002 P. FORM 
002 P. GETS 
002 P. IE 
002 P.INIT 
002 P.MOOE 
002 P.OPP 
002 P.POSI 
P. READ 
002 P.SWB 
002 P. WRIT 
002 P.URTC 
002 P.WRTS 
002 QVP 
002 RAMASC 
002 R AMD AT 
002 RAMERR 
002 RAMEXP 
002 RAMFOR 
002 RAMSIZ 
RAMTAD 
RCVHIA 
RCVLOA 
RDERR 
RECMSG 
RECV 
REGSAV 
RE TERR 
002 REWINO 
00? RMCH6E- 
002 RMCHEN- 
002 RMMSG8- 
002 RMMSGE- 
002 RMPKTB- 
002 RMPKTE* 



014355R 

003144RG 

022134R 

000021 

000022 

000020 

000000 

000023 

000024 

000001 

000005 

000003 

000006 

000004 

000007 

OOOOIO 

000011 

000002 

100000 

000037 

00C012 

04:000 

000140 

000011 

00001 ? 

000200 

0C0013 

007400 

020000 

OOOOIO 

000001 

010000 

000005 

000004 

000006 

002i76RG 

014046R 

002234RG 

0154 OORG 

015420RG 

010006R 

002274RG 

0154 06RG 

002276RG 

00230ORG 

C05176P 

002460RG 

002226Rr 

C2004Crf 
OO: >t>2R 
0M7O4RG 
C 00167 

i O0200 
O002 15 
000234 
000201 
0002X0 



002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
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SEQ 


215 


RMR 


OlOOOO 




S2.0UT- 


000040 




UFLAG' 


0C0040 




T29BA 


030624R 


002 


T29WSS 


030716R 


002 


RWPACK 


011000R 


002 


S2.UN0- 


000003 




TIFREE' 


105706R 


002 


T298FR 


026112R 


002 


T3 


041222RG 


002 


5C 


100000 




TBLENO- 


003054RG 


002 


T$GMAN- 


000000 




T296F2 


026230R 


002 


T3BFLG 


003142RG 


002 


SCE 


020000 




TCOASC 


006366R 


002 


TIHILI- 


000776 




T29B0T 


027556R 


002 


T3.x 


041252R 


002 


SCHERR 


0052 70R 


002 


TCOCOO 


006566R 


002 


TILAST' 


• OOOOOl 




T29BS0 


026230R 


002 


T3.2 


042130R 


002 


SCME 


00S003R 


002 


TEMPI 


OOMIORG 


002 


TILOLI- 


• 000000 




T29BS1 


026231R 


002 


T30BFR 


036302R 


002 


SOELAl 


0105S0R 


002 


TEMP? 


003112RG 


002 


T$LSYM- 


» 010000 




T29CNT 


026254R 


002 


T30BF2 


036420R 


002 


SELASC 


020342R 


002 


VERCLS- 


000016 




T*LTNO- 


• 000011 




T29C0N 


026242R 


002 


T30B0T 


037631R 


002 


SELD'AT* 


000004 




TESTNO- 


000011 




TiNEST' 


• 177777 




T290AT 


026100R 


002 


T30BS0 


036420R 


002 


SEL2 • 


« 000002 




TEXASC 


006325R 


r 2 


T*NSC - 


■ 000000 




T290LY 


026260R 


002 


T30BS1 


036421R 


C02 


SETMAP 


017210R 


002 


TFCASC 


006427R 


002 


TfNSl ■ 


■ 000005 




T290SU 


026 UOR 


002 


T30CNT 


036440R 


002 


SETU 


021736R 


002 


TIMEXP 


015442RG 


002 


TINS2 ■ 


. 000002 




T290TA 


027623R 


002 


T30CNU 


05C442R 


002 


SFFMSG 


011772RG 


002 


TIMSGO 


0154 70R 


002 


T*PCNT- 


■ oooooo 




T29E0T 


027711R 


002 


T30DAT 


036270R 


002 


SFHERP 


0036 75R 


002 


TINERR 


0117HR 


002 


UPTAB- 


' 010100 




T29L0N 


031005R 


002 


T30DLY 


036446R 


002 


SFIERR 


0C3642R 


002 


TMPBFR 


002624RG 


002 


TIPTHV 


. 0\>C001 




T29LO0 


023326R 


002 


T3C0SU 


036300R 


002 


SriMSG 


011724RG 


002 


TNAM 


016576R 


002 


T$P7NU« 


■ OOOOOl 




T29L0P 


O31067R 


002 


T300TA 


040724R 


002 


SFPTBL 


0C2160RG 


002 


TR.^NST 


002160RG 


002 


T*SAVL« 


• 177777 




T29L0Q 


027206R 


002 


T300TR 


040660R 


002 


STFLAG 


003146RG 


002 


TSBA - 


000000 G 




T$SEGL' 


■ 177777 




T29L0T, 


027061R 


002 


T30ETM 


036276R 


002 


SIMSG 


011656R 


002 


TSBAH • 


000001 G 




USIZE« 


■ 000005 




T29NEF 


0264 10R 


002 


T30FCN 


036444R 


002 


SKIP! 


0033 72R 


002 


TSOB - 


000000 G 




T$SU6N- 


. OOOOOl 




T29NEQ 


031325R 


002 


T30IBT 


036621R 


002 


S OF INI 


015664RG 


002 


TSOfiH - 


OOOOOl G 




TITAGL- 


■ 177777 




T290FL 


026262R 


002 


T30IBU 


036450R 


002 


SPACE 


010356RG 


002 


TSFCOO 


007126R 


002 


T$TAGN' 


• 010102 




T290T7 


030275R 


002 


T30IMV 


0364 26R 


002 


SPM1 


1G5606R 


002 


TSREJ - 


000006 




TITEMP* 


• OOOOOO 




T29PAC 


026070R 


002 


T50L00 


032140R 


002 


SPM4 


1056S6R 


002 


TSSDEF 


0O64 76R 


002 


TiTEST' 


• 000011 




T29PBP 


03U51R 


002 


T30LOU 


037420R 


002 


SRO 


177572 




TSSR • 


000002 G 




T$TSTM« 


• 17777? 




T29PK2 


026200R 


002 


T30NEF 


040366R 


002 


GR1 > 


• 177574 




TSSRBI 


003472RG 


002 


T*T C TS' 


• OOOOOl 




T29HK3 


026220R 


002 


T300FL 


040077R 


002 


SR2 i 


• 177576 




TSSRFO 


0O6305R 


002 


T$$, J « 


■ 010031 




T29RB 


C26222R 


002 


T30PAC 


036260R 


002 


SR3 


• 172516 




TSSRH - 


000003 G 




TMAUT- 


• 010033 




T29RDF 


026500R 


002 


T30PK2 


036370R 


002 


SSR 


■ 000200 




TSSX 


004010R 


002 


TltCLE- 


• 010034 




T29RDG 


031423R 


002 


T30PK3 


0364 10R 


002 


STATCO 


012302R 


002 


TSTBLK 


002744RG 


002 


TMDAT- 


■ 010101 




T29RES 


0317260 


002 


T SOP 13 


037032R 


002 


SVCG8L' 


■ 000000 




TSTCNT 


002206RG 


002 


TltOU • 


' 010032 




T29RIB 


031504R 


002 


T30RB 


0364 12R 


002 


SVCINS- 


■ 000000 




TSTENO 


016612R 


002 


T i IHAR 


' 010075 




T29RN 


026236R 


002 


T30R0F 


037203R 


002 


SVCSUB' 


• 000001 




TSTFLA 


002306RG 


002 


TMHW ■ 


• 010000 




T29RNC 


030134R 


002 


T30RDG 


037261H 


002 


5VCTAG' 


■ 000000 




TSTLOO 


016350RG 


002 


TMINI 


■ 010030 




T29RRF 


02654 7R 


002 


T30RES 


041042R 


002 


SVCTST 


■ 000001 




TSTPTR 


002310RG 


002 


TIIMSG 


■ 010025 




T29RRG 


026663R 


002 


T30RIB 


036535R 


002 


SflSYM 


■ 010000 




TSTSET 


016402RG 


002 


T$$PC 


• OOOOOl 




T29RRN 


031604R 


002 


T30RN 


036426R 


002 


SO.IDB 


• 000010 




TST29I 


031677R 


002 


TIIPRO 


• 010027 




T29RSZ 


026256R 


002 


T30RRM 


040445R 


002 


SO.IFB« 


■ 000002 




rJTSOI 


041021R 


002 


TIIPTA* 


■ 010100 




T29RT2 


032020R 


002 


T30RRN 


040523R 


002 


SO. IFP 


■ 000001 




TST31I 


046353R 


002 


T$$RPT 


• 010035 




T29RT3 


032062R 


002 


T30RRP 


040602R 


002 


SO. ILD 


■ 000020 




TST32I 


052460R 


002 


TIISOF. 


■ 010076 




T29RWN 


030065R 


002 


T30RT2 


04U34R 


002 


SO.ION' 


■ 000040 




TST35I 


055505R 


002 


TMSRV* 


• 010026 




T29SC 


026777R 


002 


T30RT3 


041176R 


002 


SO . IRD 


« 000100 




TST34I 


063057R 


002 


TilS'JO 


■ 010074 




T29SSR 


027267R 


002 


T30RWN 


040030R 


002 


SO. JRW 


■ 000004 




TST35I 


073013R 


002 


TliSU 


• 010001 




T29SZ 


026226R 


002 


T30SKM 


036704R 


002 


SO. ISP 


• 000200 




TST36I 


100607R 


002 


THTES 


• 010073 




T29S2 


026232R 


002 


T30SSR 


037501R 


002 


SI. ICE 


'- 0020OO 




T3T37I 


10524 3R 


002 


Tl 


023276RG 


002 


T29S5 


026234R 


002 


T30SZ 


0364 16R 


002 


SI. IEO 


■ 010000 




TSV2 


002000RJ 


002 


fl.l 


023326R 


002 


T29TM 


03000 7R 


002 


T30S2 


036422.* 


002 


Sl.IFM 


• 001000 




TSV3 


0021 70RG 


002 


i 1.2 


023756R 


002 


T29TRL 


031237R 


002 


T30S3 


036424R 


002 


S 1 . I HE 


• 000400 




TSV4 


021376RG 


002 


T1.3 


024500R 


002 


T29VCK 


030551R 


002 


T30TM 


037676R 


002 


si. no 


• 004000 




TSV6 


105444RG 


002 


T1.4 


025224R 


002 


T29WB 


026222R 


002 


T30TMK 


040304R 


002 


SI. I1R 


020000 




TSV7B 


023276RG 


002 


T2 


0321 14PG 


002 


V29U0C 


O30457R 


002 


T30TM2 


037753R 


002 


SI . I2R 


• 040000 




TTIBFR- 


17/562 G 




T2.1 


032140R 


002 


T29WO0 


050S5CR 


002 


T30TPB 


037123fc 


002 


SI. PAR 


■ 100000 




TTICSR' 


177560 G 




T2.2 


033532R 


002 


T29UDF. 


027342R 


002 


T30VCK 


040231R 


002 


S2. ATI 


- 000010 




TTIVEC* 


000060 G 




T2.3 


035156R 


002 


T29WOF 


027131R 


00? 


T30WB 


0364 A 2R 


002 


52 . B T I 


• 000004 




TiARGC- 


000003 




T2.4 


0T5552R 


002 


T29W0R 


026240R 


002 


T30UDC 


040152R 


002 


S2.DIM 


=■ 000200 




TiCODE- 


001130 




T23A 


003136RG 


002 


T29WLK 


02 7424R 


002 


T30W0D 


036760R 


002 


S2. It.W 


< 000100 




T$f>'RN- 


001620 




723B 


003140RG 


002 


T29WNG 


026303R 


002 


T 30W0E 


037552R 


002 


52.INR 


• 000020 




T$EXCP* 


000000 




T29AM3 


03020 VR 


0C2 


T29WRT 


027511R 


002 


T30WDF 


037343R 


002 
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T31AM3 

T31BA 

T31BFR 

T31BF2 

T31B0T 

T31B50 

T31BS1 

T31CNT 

T31CNU 

T31CON 

T31DAT 

T 3 IDLY 

T31DSW 

T31DTA 

T3ir.OT 

T31L0N 

T3UOO 

T3U Oh 

T31L0Q 

T31LOR 

T31NEF 

T310FL 

T31PAC 

T31PBP 

T31PK2 

T31PK3 

T31RB 

T31RDE 

T31RDF 

T31RES 

T31RN 

T31RNC 

T31RRF 

T31RT2 

T31RT3 

T31RWN 

T315C 

T3JCCF 

T31SSR 

T31SZ 

T31S2 

T31S3 

T31TIM 

T31TM 

731TRL 

T31TSA 

T31VCK 

T31WB 

T31WOC 

T31WOO 

T31WCE 

T31WOF 

T31W0R 

131WNG 

T3"JNH 

T31WRF 

T31WSS 



044626R 
045166R 
043012R 
0431J0R 
044155R 
043130R 
043131R 
043146R 
O43150R 
043142R 
043000R 
043152R 
043010R 
046256R 
044 350R 
045330R 
041252R 
0454 12R 

043 726R 
043601R 
045650R 
044675R 
04277CR 
045474R 
04 5100R 
043120R 
043122R 
C43154R 
043353a 
046420R 
043136R 
044553R 
043422R 
046512R 
046554R 
044504R 
043517R 
04S771R 
044007R 
043126R 
043132R 
043134R 
04'*250R 
0444^7R 
045562R 
C46046R 
045113R 
043122R 
045040R 

044 750R 
04404 3R 
04 365 IP 
043140^ 
043301F 
04 3220R 
046153R 
045241R 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
C02 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



T32AM3 

T32BA 

T32BFR 

T32B0E 

T32B0T 

T32CMO 

T32CNT 

T32CNU 

T320AT 

T32DLY 

T320SW 

T32ECF 

T32E0T 

T32EM 

T 32100 

T320PI 

T32PAC 

T32PK2 

T32PK3 

T32RB 

T32RES 

T32RIB 

T32RT2 

T32R73 

T32RWN 

T32SCF 

T32SZ 

T32TSA 

T32UB 

T32W0C 

T33BFR 

T33BF2 

T53B0T 

T33BS0 

T33BS1 

T33CNT 

T33CNU 

T33C0N 

T33DAT 

133DLY 

T330SW 

T330 T A 

T33L00 

T33PAC 

T33PK2 

T33PK3 

T35RB 

T33RBP 

T33RES 

T33RN 

T33RT2 

T33RT3 

7 33RWN 

T33S5R 

T33SZ 

r ,3S2 

T33S3 



051567R 
051703R 
C51162R 
052206R 
051336R 
051300R 
051330R 
051332R 
051150R 
051334R 
051160R 
052275R 
051431R 
051636R 
046630R 
052423R 
051140R 
051250R 
051270R 
051272R 
052520R 
051756R 
052612R 
052602R 
051520R 
052054R 
051276R 
052131R 
051272R 
052356R 
054422R 
054540R 
055165R 
054540R 
05454 1R 
054556R 
054560R 
054552R 
0544 10R 
054562R 
0544 20R 
0554 10R 
052716R 
05440OR 
054510P 
054530R 
054532R 
054564ft 
055522R 
054546R 
055614R 
055656R 
055260R 
055101R 
054536R 
054542R 
054544R 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



T33UNC 

T33UN0 

T33WB 

T33W0C 

T33WDR 

T33WPW 

T34AM3 

T34BA 

T34BFR 

T34BF2 

T34B0T 

T34BS0 

T34BS1 

T34CNT 

T34C0N 

T34DAT 

T34DLY 

T34DSU 

T34E01 

T34ET 

T34ETC 

T34ETN 

T34EI0 

T34ETS 

T34ETZ 

T34ET2 

T34L00 

T340FL 

T34PAC 

T34PK2 

T34PK3 

T34P0S 

T34RB 

T34RES 

T34RNC 

T34RRE 

T34RSZ 

T34RT2 

T34RT3 

T34RWN 

T34SSR 

T34STM 

T34SZ 

T34S2 

T34"3 

T34TM 

T34TMK 

T34VCK 

T34WB 

T34W0 

T 34 WOC 

T 34 WOO 

T34W0R 

T34WSS 

T34WTM 

T35AM3 

T35BA 



054 722R 
055012R 
054532R 
055327R 
054550R 
054642R 
062331R 
062716R 
060422R 
060546R 
061104R 
060546R 
060547R 
060542R 
060560R 
0604 10R 
060544R 
060420R 
062055R 
06176*R 
061027R 
061321R 
060652R 
061400R 
0614 72R 
061237R 
055732R 
062377R 
060400R 
060510R 
060530R 
060564R 
060532R 
063102R 
062256R 
060736R 
060540R 
063174R 
063236R 
062207R 
061733R 
061550R 
0605 36H 
060550R 
060552R 
062133R 
061633R 
06264 3R 
060532R 
060554 R 
06254 1R 
062452R 
060556R 
0627 70R 
061150R 
070646R 
071206R 



002 T35BFR 
C02 T35BF2 
002 T35B0T 
002 T35BS0 
002 T35BS1 
002 T35CNT 
002 T35CNU 
002 T35C0N 
002 T350AT 
002 T350LY 
002 T35DSW 
002 T35DTA 
002 T35E0T 
002 T35INT 
002 T35L0N 
002 T35L00 
002 T 3 SLOP 
00: T35L0Q 
002 T35LOR 
002 T35M0T 
002 T35NEF 
002 T35NIN 
002 T350FL 
002 T 350PM 
002 T35PAC 
002 T35PBP 
002 T35PK2 
002 T35PK3 
002 T35RB 
002 T35R0F 
002 T55RES 
002 T35RN 
002 T35RNC 
002 T35RRF 
002 T35RT2 
002 T35RT3 
002 T35RWE 
002 T35RWN 
002 T35SC 
002 T35SCF 
002 T35SSR 
002 T35SZ 
002 T35S2 
002 T35S3 
002 T35TIM 
002 T35TM 
002 T35TRL 
002 T35TSA 
002 T35VCK 
002 T^5W6 
002 T35WDC 
002 T35WOD 
002 T35WOE 
002 T35WDF 
002 T35UOR 
002 T35WNG 
0C2 T35WRF 



067262R 
067400R 
070220R 
067400R 
067401R 
0674 16R 
067420R 
067412R 
067250R 
067422R 
067260R 
O72205R 
070370R 
072461R 
071350R 
063314R 
071432R 
070065R 
067 740R 
072363R 
071670R 
072736R 
070715R 
072552R 
067240R 
071514R 
067350R 
067370R 
067372R 
067512R 
073044R 
067406R 
070573R 
067561R 
073136R 
073200R 
072650R 
070524R 
067656R 
071766R 
0V2302R 
0673?6R 
067402R 
067404R 
070313R 
070447R 
071602R 
07204 3R 
071133R 
06 7372R 
071060R 
0707 70R 
070146R 
070010R 
067410R 
06 7424R 
Q72125R 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 
002 
002 
002 
002 
002 
CO^ 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 



002 T 



002 T 



35USS 

36AM3 

36BA 

36BFP 

36BF2 

36B0T 

36B50 

36BS1 

36CNT 

36CNU 

36C0N 

360AT 

360LY 

36DSW 

36DTA 

36E0T 

36L0N 

36L00 

36L0P 

36L0Q 

36L0R 

36NAS 

36NEF 

360FL 

36PAC 

36PBP 

36PK2 

36PK3 

36RP 

36RDF 

36RES 

36RN 

36RNC 

36RRF 

36RT2 

36RT3 

36RUN 

36SC 

36SCF 

36SSR 

36SZ 

36S2 

36S3 

36TIM 

36TM 

36TRL 

36TSA 

36VCK 

36WB 

3CW0C 

36W00 

36U0E 

36W0.* 

36W0R 

36WNG 

36WRF 

36WS5 



0712UR 
07715 3R 
07751 3R 
075462R 
C75600R 
076525R 
075600R 
075601R 
0756 16R 
075^S20R 
0756 12R 
0754 30R 
075622R 
075460R 
100512R 
076675R 
077655R 
073260R 
077737R 
076336R 
07621in 
075624R 
100175R 
077222R 
075440ft 
10002 1R 
075550ft 
075570R 
075572R 
075763R 
100630R 
075606R 
077100ft 
076032R 
100722R 
100764K 
077031R 
076127R 
100273R 
076417R 
075576R 
0756C2R 
0756O4R 
076620R 
076754R 
100107R 
100350R 
077440R 
075572M 
077365R 
077C75R 
076453R 
0762C1R 
073610R 
075675R 
1004 32R 
77566R 
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002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
002 
00? 
C02 
O02 
002 
002 
O02 
002 
002 
002 
002 
002 
002 
002 
002 
002 
O02 
002 
002 
002 
002 
002 
002 
002 
00? 
002 



T SV6 - PARAMETER COOING MACRO M1113 
SYMBOL TABLE 



01-FEB-84 18:55 



Kl 



SEQ 217 



T37AM3 

T37BA 

T37BFR 

T37BF2 

T37BOT 

T378SO 

T57BS1 

T37CNT 

T37CNU 

T37CON 

T37DAT 

T37DLY 

T37DSW 

T37DTA 

T37EOT 

T37LON 

T37LOO 

T37LOP 

T3?i OQ 

T37LUM 

T37NEF 

T370FL 

T37PAC 

T37PBP 

T37PK2 

T3VPK3 

T37RB 

T37ROF 

T37^ES 

T37RN 

T37RNC 

. ABS, 

ABS 
ERRORS 



103607R 
104147R 
102152R 
102270R 
103161R 
102270R 
102271R 
102306R 
1O2310P 
102302R 
102140R 
102312R 
102150R 
105146R 
103331R 
104311R 
101044R 
104. T ">3R 
10P'J5R 
i.^2630R 
104631R 
103656R 
102130R 
104455R 
102240R 
102260R 
102262R 
1O2402R 
105264R 
102276P 
103534R 

OOOOOO 

000000 

105706 

DETECTED 







002 T37RRF 
002 T37RT2 
002 T37RT3 
002 T37RWN 
002 T37SC 
002 T37SCF 
002 T37SSR 
J02 T37SZ 
002 T37$2 
002 T37S3 
002 T37fIM 
002 T37TM 
002 T37TRL 
002 T37TSA 
002 T37VCK 
00? T37WB 
002 T37WOC 
002 T37WOO 
002 T37WDE 
002 T37WOF 
002 T37WOR 
002 T3 7 WNG 
002 T37URF 
002 T37WSS 
002 T4 
002 T4.1 
002 T4.2 
002 T4.3 
002 T5 
002 T5.1 
002 T6 

000 
001 
002 



102451R 

105356R 

105420R 

103465R 

102546R 

104727R 

103036R 

102266R 

102272R 

102274R 

103254R 

10341 OR 

10454 3H 

1050C4R 

1O4074R 

102262R 

101021R 

103731R 

10s3072R 

102700R 

102300R 

1023i4R 

105066R 

104222R 

046600PG 

046630R 

047470R 

050300R 

052666RG 

052716P 

055702RG 



002 T6.1 
0C2 T7 
002 T7.1 



002 
002 



T7.2 
T7.3 



002 T7.4 
002 T8 
002 T8.1 
002 T8.2 
002 T9 
002 79.1 
002 UAM 
002 UNITN 
002 UNREC 
002 USI 
002 WAITF 
002 UC.IFA 
002 UC.IFE 
002 WC.IGO 
002 WC.IRE 
002 WC.TRW 
002 WC.IOT 
002 UC.I1T 
002 WC.I5R 
002 WF.IED 
002 WF.IER 
002 WF.IHI 
002 UF. IRE 
002 WF.IWF 
002 WF.IUR 
002 WF.I3R 



055732R 

063264RG 

063314R 

064372R 

065452R 

066314R 

073224RG 

073260R 

074334R 

101010RG 

101044R 

000200 G 

002174RG 

000006 

004113R 

016140RG 

000200 

000002 

000001 

000010 

000004 

000100 

000040 

000020 

000010 

000004 

000200 

000040 

000020 

000100 

000002 



002 WF.I4R< 
002 WRTCHR 
002 WRTERR 
002 WRTMSG 
002 WSMBK 
002 XFERAS 
002 XNXM 
002 XORBFO 
002 XORFOR 
002 XSTO " 
002 XST1 > 

XST2 
002 XST3 
XST4 
002 XSOBOT 
002 XSOEOT 
XSOIE 
XSOILA 
XSOILC 
XSOLET 
XSOMOT 
XfONEF 
XS ">NL 
XS< PED 
XSORLL 
XSORLS 
XSOTMK 
XSOVCK 
XSOWLE 
XSOWLK 
XXCOMM 



000001 

010552RG 

005103R 

005046R 

021100RG 

015630R 

016266R 

007564R 

007702R 

000006 G 
000010 
000012 

00007 4 
OOOOlo 
000002 
000001 
000040 
000400 
001000 
020000 
000200 
002000 
000100 
000010 
010000 
040000 
IOC 000 
000020 
004000 
000004 
003114RG 



XIALWA 
002 XiFALS 
002 XIOFFS 
002 XiTRUE 
002 XI. COR 
002 Xl.DLT 
002 Xl.MBZ 
002 Xl.RBP 
002 XI. SPA 
Xl.UNC 
X2.BUF 
X2.EXT 
X2.0PM 
X2.RCE 
X2.REV 
X2.SPA> 
X2.UNI- 
X2.WCF- 
X3.DCK- 
X3.MBZ- 
X3.MDE- 
X3.0PI* 
)'3.REV- 
X3.RIB- 
X3.SPA- 
X3.TRF- 
X4.HSP- 
X4.MBZ- 
X4.RCE- 
X4.TSM- 
002 X4.WRC* 



OOOOOO 
000040 
000400 
000020 
020000 
100000 
■'•17375 
U00400 
040000 
000002 
000100 
00C200 
100000 
040000 
00007 7 
035400 
000007 
002000 
000010 
000006 
177400 
000100 
000040 
000001 
000200 
000020 
100000 
017400 
040000 
020000 
C0037 7 



VIRTUAL MEMORY USED: 30363 WORDS ( 119 PAGES) 
DYNAMIC MEMORY: 20614 WORDS C 79 PAGES) 
ELAPSED TIME: 00:39:35 
C/TSDA,CZTSDA.SEQ/-SP-SVC/ML,TSV10,TSV22D,TSViB.TSV4,TSV7B,TSV6 
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